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1. PURPOSE ! 

1.1 INTENT 

TO ISOLATE A SOLID DATA PATH FAILURE WITHIN THE 2821 — 2540 * 

ATTACHMENT. \ 

2. PREREQUISITES 

2.1 PROGRAM REQUIREMENTS 

» « i 

THE PROGRAM IS RUN WITH A DIAGNOSTIC MONITOR. 

* THE PROGRAM ASSUMES THAT THE CPU £ CHANNEL ARE OPERABLE. 

THE PROGRAM ASSUMES THAT I/O COMMANDS ARE OPERABLE. 

THE PROGRAM IS RELOCATABLE. 

2.2 EQUIPMENT REQUIREMENTS I 

PROGRAM LOADING DEVICE 1 

HARD COPY OUTPUT DEVICE ! 

CPU - OPERABLE 

CHANNEL - OPERABLE * j 

8K MINIMUM STORAGE 
2540 READER/PUNCH 

2821 CONTROL UNIT WITH FOLLOWING REQUIREMENTS-- I 

CONTROL CIRCUITS FUNCTION PROPERLY. 

ERROR CHECKING CIRCUITS FUNCTION PROPERLY. 1 

READER £ PUNCH CAN BE MADE READY j 

2.3 PROGRAM IDENTIFICATION NUMBERS j 

TO MINIMIZE MAINTENANCE COSTS FOR FUTURE PROGRAM REVISIONS 
DUE TO ENGINEERING CHANGE ACTIVITY, THE FOLLOWING ID NUMBERS 
HAVE BEEN ASSIGNED TO VARIOUS PORTIONS OF THIS PROGRAM PACKAGE. 


I I I 

I ID NUMBER I ASSIGNMENT I 

I I I 

l -I- 1 

I F804* I DESCRIPTION OF COMPLETE PROGRAM I ' 

I I WHICH INCLUDES ALL ROUTINE OVERLAYS.I 

I F804 I OBJECT DECKS AND ASSEMBLER PROGRAM I 

I I LISTINGS FOR ROUTINE OVERLAYS I 

I I 01 AND 02. I 

DATE 15JUL45 17MAR66 ' 10 F804-* 

EC 124265 125643 PAGE 1 


I F805 I OBJECT DECKS AND ASSEMBLER PROGRAM I 

I I LISTINGS FOR ROUTINE OVERLAYS 03 I 

• I I AND 04. | 

I~- - -1----- — - -———I 

I F806 I OBJECT DECK AND ASSEMBLER PROGRAM I 

I I LISTING FOR ROUTINE OVERLAY 05. I 


**NOTE** THE SEARCH NUMBER FOR THIS PROGRAM IS 804— 
805 AND 806 CAN NOT BE USED. 

.3. USE PROCEDURE 
3.1 LOADING 


STANDARD VIA DM AS DESCRIBED IN THE USERS GUIDE. 

SINCE THIS PROGRAM PACKAGE UTILIZES THE PROGRAM OVERLAY 
CONCEPT, ALL ROUTINES MUST BE LOADED AND RUN IN ID NUMBER 
SEQUENCE. 

3.2 OPERATING 

3.2.1 GENERAL OPERATING 

THE READER AND PUNCH MUST BE MADE READY BEFORE RUNNING 
THIS PROGRAM. THE PUNCH MUST BE LOADED WITH AT LEAST 
20 BLANK CARDS PER PROGRAM PASS. 

3.2.2 SENSE SWITCH USAGE —COMMON TQ ALL ROUTINES— 

THE SENSE SWITCHES SHOWN BELOW ARE IN THE SENSE SWITCH BYTE 
OF THEIR RESPECTIVE SECTION PREFACE. THE CHARACTER X REPRESENTS 
THE RELOCATION FACTOR CONTAINED IN REGISTER 15 DURING RUN 
TIME. THE SWITCH BITS ARE ZERO WHEN OFF, AND ONE WHEN ON. 


I SENSE I I SECTION I BYTE 

I SW. I . FUNCTION I OR I AND 

1*1 I ROUTINE I BIT 

l -I--—---------j-..™-j-_ 

I 0 I OFF—PROCEED NORMALLY I ENTIRE I X004 

I I ON—SHORT LOOP ON START I/O - TEST I/O I SECTION I 0 

!- 1 ----—--- 1 - 1 - 

I 1 I OFF—PROCEED NORMALLY I I XQ04 

I I ON—ENTER UTILITY SCOPE ROUTINE I ,, II 

! —-1----— --_____ i __™ ! __ 

I 2 I OFF—PROCEED NORMALLY I I X0Q4 

I I ON—LOG OUT DATA ACCUMULATION TABLE I ,» I 2 

I 6 I OFF—PROCEED NORMALLY I I X004 

I I ON—PRINT SECTION TITLE I ,, I 6 


3.2.3 UTILITY ROUTINE SET UP PROCEDURES 

THIS IS A RESIDENT ROUTINE. IT CAN ONLY BE ENTERED AT 
THE BEGINNING OF EACH ROUTINE OR AFTER THE ANALYSIS 
RESULTS AND LOG OUT PRINTOUT OF EACH ROUTINE. THIS 
ROUTINE WILL BE ENTERED AT THESE TIMES IF SECTION SENSE 
SWITCH 1 IS SET TO 1. 

WHEN THIS ROUTINE IS ENTERED, AN OUTPUT MESSAGE WILL 
INFORM THE C.E. TO PRESS CONSOLE STOP, THEN ENTER THE 
^CORING DATA. THIS DATA IS TO BE ENTERED, IN HEX, VIA 
THE CONSOLE SWITCHES AS INDICATED BELOW. 




BYTE 0 

1 

2 

3 


DATE 

EC 

15JUL65 

124265 

17MAR66 

125643 
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BIT 01234567 01234567 01234567 01234567 


GRA 

GRB 

GRC 


I III 

I I-QP CODE! ) I I--SIX FLAG, BIT 2 

I * I SEE I * I *—SKIP FLAG, BIT 3 

I I 6*1 I I 

I I 

l—-CONTENTS OF DATA FIELD---1 

I I 

I -i--.— I- --- 1 

I II I 

i—CCW COUNT—I II/O ADDRESS-1 
I II I 


NOTES—THE FOUR BYTES OF DATA ENTERED IN GRB WILL 
BE RIPPLED THROUGHOUT THE CCW DATA FIELD. 

— IF THE CCW COUNT EXCEEDS 180 BYTES, THE ROUTINE 
WILL FORCE IT TO 180® 

—THE MAIN STORAGE LOCATIONS OF PERTINENT FIELDS 
USED BY THIS ROUTINE ARE LISTED BELOW. X DENOTES 
THE CONTENTS OF GENERAL REGISTER 15. 

SIO INSTRUCTION — X6C6 THRU X6C9 
CAW — X048 THRU X04B 
CCW — X0E8 THRU XOEF 
DATA FIELD — X234 THRU X2E7 

AFTER THE ABOVE DATA HAS BEEN ENTERED, THE C.E. COULD 
SET UP ONE OF THE FOLLOWING OPTIONS BEFORE PRESSING 
CONSOLE START. 

1. SET SECTION SENSE SWITCH 0 TO 1 TO PUT THE SELECTED 
OP IN A TIGHT START I/O - TEST I/O LOOP. 

2. SET SECTION SENSE SWITCH 0 TO 0 TO PERFORM THE 
SELECTED OP ONCE. IN THIS CASE THE UTILITY ROUTINE 
WILL PERFORM THE SELECTED OP ONCE, THEN REQUEST NEW 
SCOPING DATA. 

3® SET SECTION SENSE SWITCHES 0 AND 1 TO ZERO. IN 
THIS CASE, THE SELECTED OP WILL NOT BE PERFORMED, 

AND A BRANCH BACK TO THE MAIN PROGRAM WILL OCCUR. 

THE C.E® CAN EXIT FROM THE UTILITY ROUTINE BY PRESSING 
CONSOLE STOP AT ANY TIME, SET SECTION SENSE SWITCHES 0 
AND 1 TO ZERO, THEN PRESS CONSOLE START* 

3.3 HALTS 

3.3.1 NORMAL HALTS 
NONE 

3.3.2 ERROR HALTS —COMMON TO ALL ROUTINES— 

THE PROGRAM WILL NOT STOP ON ANY ERROR HALTS UNLESS THE 
HALT ON ERROR SENSE SWITCH IS ON IN THE DIAGNOSTIC MONITOR. 

3.3.3 SPECIAL HALTS —COMMON TO ALL ROUTINES 

THE PROGRAM WILL ONLY HALT ON THE SPECIAL HALTS 
IF THE CORRESPONDING SENSE SWITCHES ARE SET. 

HALT AFTER LOG OUT OF ACCUMULATED DATA 

IF THE OPERATOR REQUESTS THE LOG OUT OF THE ACCUMULATED 
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DATA, THE PROGRAM WILL HALT AFTER THE LOG OUT. IN 
ORDER TO CONTINUE, THE CONSOLE INTERRUPT KEY MUST BE 
DEPRESSED* 

HALT TO SET UP INFORMATION FOR UTILITY ROUTINE. 

IF THE OPERATOR REQUESTS TO USE THE BUILT-IN UTILITY 
ROUTINE, THE PROGRAM WILL LOOP TO WAIT FOR THE C.E* TO 
PRESS CONSOLE STOP —REFER TO SECTION 3.2.3 FOR DETAILS 
CONCERNING THE BUILT-IN UTILITY ROUTINE. 

3.4 TERMINATION 

THE PROGRAM RETURNS CONTROL OF THE SYSTEM TO MONITOR VIA 
MONITOR CALL SVC D6* 

4. PRINTOUTS 

4.1 TITLE PRINTOUTS 

THE FOLLOWING TITLE PRINTOUTS WILL OCCUR ONLY IF SECTION SENSE 
SWITCH 06 IS SET TO 1. 

-2821 SCAN/2540 ATTACHMENT, CHANNEL REGISTER FLT 

ABOVE PRINTOUT IS THE TITLE FOR ROUTINE OVERLAY 01 
4 

-2821 SCAN/2540 ATTACHMENT, CONTROL PROGRAM 
ABOVE PRINTOUT ^IS THE TITLE FOR ROUTINE OVERLAY 02. 


-2821 SCAN/2540 ATTACHMENT, BUFFER ADDRESSING FLT 
ABOVE PRINTOUT IS THE TITLE FOR ROUTINE OVERLAY 03. 


-READ XLATE FIT- 

ABOVE PRINTOUT IS THE TITLE FOR ROUTINE OVERLAY 04. 


-PUNCH XL ATE FLT- ;• 

ABOVE PRINTOUT IS THE TITLE PRINTOUT FOR ROUTINE OVERLAY 05. 

4.2 INSTRUCTIONS TO THE OPERATOR —COMMON TO ALL ROUTINES— 

-I/O ADDR XXX CAW YYYYYYYY GOT CC1 CSW STATUS 0200 SNS 40- 
-MAKE THIS UNIT RDY WITH BLANK CARDS- 

ABQVE MESSAGE WILL BE PRINTED IF INTERVENTION REQUIRED IS 
ENCOUNTERED WHEN TRYING TO EXECUTE AN I/O OPERATION. 

XXX DEFINES THE UNIT ADDRESS AND Y—Y DEFINES THE CHANNEL 
ADDRESS WORD DATA. THE PROGRAM WILL LOOP FOR 20 SECONDS TO 
ALLOW THE UNIT TO BE MADE READY. THE MESSAGE WILL BE REPEATED 
EVERY 20 SECONDS IF THE CONDITION IS NOT RECTIFIED. 

4.3 ERROR MESSAGES 

4.3.1 ERROR MESSAGES COMMON TO ALL ROUTINES 

-I/O ADDR XXX CAW YYYYYYYY GOT CC 0 BUT NO INTERRUPT- 

ABOVE MESSAGE WILL BE PRINTED IF NO I/O INTERRUPT OCCURS 
WITHIN 10 SECONDS OF RECEIVING CONDITION CODE 0 TO AN 
I/O OPERATION. XXX DEFINES THE UNIT AODRECS AND Y—Y 
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DEFINES THE CHANNEL ADDRESS WORD DATA. THE PROGRAM 
WILL RETRY THE I/O OPERATION* 

-I/O AODR XXX CAW YYYYYYYY GOT CC U CSW STATUS VVVV SNS 11 - 

ABOVE -MESSAGE WILL BE PRINTED WHEN UNEXPECTED UNIT OR 
CHANNEL STATUS IS RECEIVED IN RESPONSE TO AN I/O OPERATION. 
XXX DEFINES THE UNIT ADDRESS, Y—Y DEFINES THE CHANNEL 
ADDRESS WORD DATA, U DEFINES THE CONDITION CODE —0 OR I—, 
VVVV DEFINES THE UNIT AND CHANNEL STATUS, AND ZZ DEFINES 
THE SENSE DATA. THE PROGRAM WILL RETRY THE I/O OPERATION. 

-I/O ADDR XXX CAW YYYYYYYY GOT CC U- 



ABOVE MESSAGE WILL BE PRINTED WHEN CONDITION CODE 2 OR 3 
IS RECEIVED IN RESPONSE TO A START I/O. XXX DEFINES THE 
UNIT ADDRESS, Y—Y DEFINES THE CHANNEL ADDRESS WORD DATA, 

AND U DEFINES THE CONDITION CODE. THE PROGRAM WILL RETRY 
THE I/O OPERATION. 

-DIAG CK RD UNIT XXX NOT OK, WILL TRY AGAIN- 

ABOVE MESSAGE WILL BE PRINTED IF THE DIAGNOSTIC CHECK READ 
COMMAND DOES NOT TRANSFER DATA TO THE CPU. XXX DEFINES 
THE UNIT ADDRESS. THE PROGRAM WILL RETRY THE OPERATION. 

4.3.2 ERROR MESSAGES COMMON ONLY TO ROUTINE 02 —CONTROL PROGRAM— 

-ERR 001- 

ABOVE MESSAGE DEFINES AN ADDRESS REGISTER PROBLEM. 

-ERR 002 THRU 004- 
**RESERVED** 

-ERR 005- 

ABOVE MESSAGE DEFINES A CHANNEL REGISTER PROBLEM. 

-ERR 006- 

ABOVE MESSAGE DEFINES PROBLEM WITH BUFFER INHIBIT LINES 
AND/OR CONTROLS OR SENSE AMPS WITH DATA CHECK. 

-ERR 007- 

ABOVE MESSAGE DEFINES A CHANNEL REGISTER PROBLEM. 

-ERR 008- 

ABOVE MESSAGE DEFINES A PROBLEM WITH BUFFER INHIBIT LINES 
AND/OR CONTROLS OR SENSE AMPS WITH NO DATA CHECK. 

-ERR 009- 

ABOVE MESSAGE DEFINES A PROBLEM WITH PARITY BIT INHIBIT 
LINES OR CONTROLS OR PARITY SENSE AMP. COULD ALSO BE 
INTERMITTENT PARITY PROBLEM. 

-ERR 010- 

ABOVE MESSAGE DEFINES A FALSE READ TRANSLATE PROBLEM IN 
READ TRANSLATE CHECK CIRCUITS. 

-ERR 011- 

ABOVE MESSAGE DEFINES A DATA REGISTER PROBLEM. 

-ERR 012- 

ABOVE MESSAGE DEFINES A FALSE PUNCH TRANSLATE CHECK. 

-ERR 013- 

ABOVE MESSAGE DEFINES MULTIPLE ERRORS -COULD BE FALSE 
PUNCH AND/OR FALSE READ TRANSLATE CHECKS. 

-ERR 014- 
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ABOVE MESSAGE DEFINES FALSE PARITY CHECKS. 

-ERR 015- 

A60VE MESSAGE DEFINES FALSE PUNCH TRANSLATE CHECKS. 

-ERR 016- 

ABOVE MESSAGE DEFINES MULTIPLE ERRORS -COULD BE FALSE 
TRANSLATE AND/OR FALSE PARITY ERRORS. 

-ERR 017-’ 

ABOVE MESSAGE DEFINES FALSE PARITY CHECKS. 

-ERR 018- 

ABOVE MESSAGE DEFINES READ BUFFER OR DIAGNOSTIC WRITE 
PROBLEM. 

-ERR 019- 

ABOVE MESSAGE DEFINES INTERMITTENT FALSE READ TRANSLATE 
CHECKS. 

-ERR 020- 

ABOVE MESSAGE DEFINES INTERMITTENT PARITY CIRCUIT PROBLEM. 
-ERR 021- 

ABOVE MESSAGE DEFINES MULTIPLE ERRORS. 

. -ERR 022- 

ABOVE MESSAGE DEFINES DATA REGISTER OR READ TRANSLATE 
PROBLEM. 

-ERR 023- 

ABOVE MESSAGE DEFINES MULTIPLE ERRORS. 

-ERR° 024- 

ABOVE MESSAGE DEFINES A PUNCH TRANSLATE PROBLEM. 

-ERR 025- 

ABOVE MESSAGE DEFINES A PUNCH TRANSLATE PROBLEM. 

r-ERR 026- * 

ABOVE MESSAGE DEFINES A FALSE PARITY CHECK PROBLEM. 

-ERR 027 THRU 029- 
**RESERVED** 

4.3.3 ERROR MESSAGES COMMON ONLY TO ROUTINE 01 —CHANNEL REG FLT— 
-ERR 030- 

NO CHANNEL REGISTER BITS WILL TURN ON 

LOGIC PAGE 32.11.12.1 

CIRCUITS - B1D10, B1E09, B1A12 

LOGIC PAGE 32.11.13.1 

CIRCUITS - B1E12, B1E11, B1D02 

LOGIC PAGE 32.11.16.1 

CIRCUITS - B1C04, B1E18 

-ERR 031-r 

NO RESET TO CHANNEL REGISTER 
LOGIC PAGE 32.11.13.1 ' 

CIRCUITS - B1E12, -HIE 11* B1D02 

-ERR 032- ' * 

CHANNEL REG -0- BIT DOES NOT TURN ON 
LOGIC PAGE 32.11.12.1 
CIRCUITS - B1D09, B1D11, B1A11 
LOGIC PAGE'32.11.21.1 
CIRCUITS - B1H02 
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—ERR 033- 

CHANNEL REG -0- BIT DOES NOT TURN OFF 
LOGIC PAGE 32*11.12*1 

CIRCUITS - B1D09, B1D11, BlAlly B1BQ7, B1D10 
LOGIC PAGE 32.11.21.1 
CIRCUITS - B1H02 

-ERR 034- 

CHANNEL REG -1- BIT DOES NOT TURN ON 
LOGIC PAGE 32*11*12*1 
CIRCUITS - B1D09, BlDllt B1A11 
LOiSIC PAGE 32* 11.21.1 
CIRCUITS - B1H02 

-ERR 035- 

CHANNEL REG -1- BIT DOES NOT TURN OFF 
LOGIC PAGE 32.11.12.1 

CIRCUITS - B1D09# B1D11, B1A11, B1B07, B1D10 
LOGIC PAGE” 32.11.21.1 
CIRCUITS - B1H02 

-ERR 036- 

CHANNEL REG -2- BIT DOES NOT TURN ON 
LOGIC PAGE 32.11.13.1 

CIRCUITS - B1H1Q* BlElOy 81D12? B1E12, B1F09 
LOGIC PAGE 32*11*23.1 
CIRCUITS - B1H02 

-ERR 037- 

CHANNEL REG -2- BIT DOES NOT TURN OFF 
LOGIC PAGE 32.11.13.1 

CIRCUITS - B1H10, BlElOy B1D12, B1E12, BIBQTy B1F09 

LOGIC PAGE 32.11.23.1 

CIRCUITS - B1H02 

LOGIC PAGE 42.32.01.1 

CIRCUITS - B4016 

-ERR 038- 

CHANNEL REG -3- BIT DOES NOT TURN ON 
LOGIC PAGE 32.11.13.1 

CIRCUITS - B1H10, BlElOy 81012* B1F09 
LOGIC PAGE 32.11.24.1 
CIRCUITS - B1G07 

-ERR 039- 

CHANNEL REG -3- BIT DOES NOT TURN OFF 
LOGIC PAGE 32.11.13.1 

CIRCUITS - BlHlOy BIE 10* B1D12* B1E12* B1B07, B1F09* B1E12 

LOGIC PAGE 32.11.24.1 

CIRCUITS - BIGOT 

LOGIC PAGE 42.32.01.1 

CIRCUITS - 84G23* B4D16 

-ERR 040- 

CHANNEL REG -4- BIT DOES NOT TURN ON 
LOGIC PAGE 32.11.14.1 

CIRCUITS - B1F09* BlHlOy B1F1Q, B1D12, B1C07* BXE12 
LOGIC PAGE 32.11.25.1 
CIRCUITS - B1G08 

-ERR 041- 

CHANNEL REG -4- BIT DOES NOT TURN OFF 
LOGIC PAGE 32.11*14.1 

CIRCUITS - BlHlOy BIFlQy B1D12* B1C07, B1E12, B1F09 

LOGIC PAGE 32.11.25.1 

CIRCUITS - B1G08 

LOGIC PAGE 42.32.01.1 

CIRCUITS - B4E16t B4G23 
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-ERR 042- 

CHANNEL REG -5- BIT DOES NOT TURN ON 
LOGIC PAGE 32.11.1*4.1 

CIRCUITS - BlHlOy BIFlly B1F10* BiGlOy B1F09* B1C07 
LOGIC PAGE 32.11.23.1 
CIRCUITS - B1H02 

-ERR 043- 

CHANNEL REG -5- BIT DOES NOT TURN OFF 
LOGIC PAGE 32.11.14.1 

CIRCUITS - B1H10* BIFlly BIFlOy BICOTy B1G10, B1F09 * 

LOGIC PAGE 32.11.23.1 

CIRCUITS - B1H02 

LOGIC PAGE 42.32.01.1 

CIRCUITS - B4E16, B4G19 

-ERR 044- 

CHANNEL REG -6- BIT DOES NOT TURN ON 
LOGIC PAGE 32.11.15.1 

CIRCUITS - B1E08, B1H10, BIGlly B1F11, B1G10 
LOGIC PAGE 32.11.26.1 
LIRCUITS - B1G08 

-ERR 045- 

CHANNEL REG -6- BIT DOES NOT TURN OFF 
LOGIC ‘’PAGE 32.11.15.1 

CIRCUITS - B1E08, BlHlOy B1G11, B1FU, BiGlOy B1C07 

LOGIC PAGE 32.11.26.1 

CIRCUITS - B1G08 

LOGIC PAGE 42.32.02.1 

CIRCUITS - B4F16* B4D08 

-ERR 046- 

CHANNEL REG -7- BIT DOES NOT TURN ON 
LOGIC PAGE 32.11.15.1 

CIRCUITS - BiGlOy BlHlOy BIGlly 81F11 
LOGIC PAGE 32.11.27.1 
CIRCUITS - B1G09 

-ERR 047- 

CHANNEL REG -7- BIT DOES NOT TURN OFF 
LOGIC PAGE 32.11.15.1 

CIRCUITS - BiGlOy 8IHlOy BIGlly BIFlly B1C07 

LOGIC PAGE 32.11.27.1 

CIRCUITS - B1G09 

LOGIC PAGE 42.32.02.1 

CIRCUITS - B4F16, B4G23 

4.3.4 ERROR MESSAGES COMMON ONLY TO ROUTINE 03 —BUFFER ADDR FLT— 

-ERR 050- ■ 

BAR PROBLEM - ERROR PATTERN IS ERRATIC. PROBLEM MAY 
BE INTERMITTENT. 

LOGIC PAGE 32.20.15.1 
CIRCUITS - B3G06, B3G07 
LOGIC PAGE 32.20.16.1 
CIRCUITS - B3H05, B3H06 
LOGIC PAGE 32.20.17*1 
. CIRCUITS - B3H07 

-ERR 051- 

BAR UNITS A OUTPUT ALWAYS ACTIVE 
LOGIC PAGE 32.20.15.1 
CIRCUITS - B3G06, B3F06, B3E05 

-ERR 052- 

RAR UNITS A INPUT TO BAR ALWAYS ACTIVE 
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LOGIC PAGE 32.20.15.1 
CIRCUITS - B3G06 

**ERR 053- 

PAR UNITS A INPUT TO BAR ALWAYS ACTIVE 
LOGIC PAGE 32.20.15.1 
CIRCUITS - B3G06 

-ERR 054- 

BAR UNITS A OUTPUT NEVER ACTIVE 
LOGIC PAGE 32.20.15.1 
CIRCUITS - B3G06* B3F06 t B3E05 

-ERR 055- 

RAR UNITS A INPUT TO BAR NEVER ACTIVE 
LOGIC PAGE 32.20.15.1 
CIRCUITS - B3G06 

-ERR 056- 

PAR UNITS A INPUT TO BAR NEVER ACTIVE 
LOGIC PAGE 32.20.15.1 
CIRCUITS - B3G06 

-ERR 057- 

BAR UNITS B OUTPUT ALWAYS ACTIVE 
LOGIC PAGE 32.20.15.1 
CIRCUITS - B3G06, B3F06* B3E05 

-ERR 058- 

RAR UNITS B INPUT TO BAR ALWAYS ACTIVE 
LOGIC PAGE 32.20.15.1 
CIRCUITS - B3G06 

—ERR 059- 

PAR UNITS B INPUT TO BAR ALWAYS ACTIVE 
LOGIC PAGE 32.20.15.1 
CIRCUITS - B3G06 

-ERR 060- 

BAR UNITS B OUTPUT NEVER ACTIVE 
LOGIC PAGE 32.20.15.1 
CIRCUITS - B3G06* B3F06, B3E05 

-ERR 061- 

RAR UNITS B INPUT TO BAR NEVER ACTIVE 
LOGIC PAGE 32.20.15.1 
CIRCUITS - B3G06 

-ERR 062- 

PAR UNITS B INPUT TO BAR NEVER ACTIVE 
LOGIC PAGE 32.20.15.1 
CIRCUITS - B3G06 

-ERR 063- 

BAR UNITS C OUTPUT ALWAYS ACTIVE 
LOGIC PAGE 32.20.15.1 
CIRCUITS - B3G07 t B3F06, B3E05 

-ERR 064- 

RAR UNITS C INPUT TO BAR ALWAYS ACTIVE 
LOGIC PAGE 32.20.15.1 
CIRCUITS - B3G07 

-ERR 065- 

PAR UNITS C INPUT TO BAR ALWAYS ACTIVE 
LOGIC PAGE 32.20.15.1 
CIRCUITS - B3G07 


-ERR 066- 

BAR UNITS C OUTPUT NEVER ACTIVE 
LOGIC PAGE 32.20.15.1 
CIRCUITS - B3G07, B3F06, B3E05 

-ERR 067- 

i RAR UNITS C INPUT TO BAR NEVER ACTIVE 

| LOGIC PAGE 32.20.15.1 

| CIRCUITS - B3G07 

1 -ERR 068- 

f PAR UNITS C INPUT TO BAR NEVER ACTIVE 

LOGIC PAGE 32.20.15.1 
j CIRCUITS - B3G07 

! -ERR 069- 

f BAR UNITS D OUTPUT ALWAYS ACTIVE 

}' LOGIC PAGE 32.20.15.1 

i ' CIRCUITS - 83G07, B3F06, B3E05 


-ERR 070- 

1 RAR UNITS 0 INPUT TO BAR ALWAYS ACTIVE 

f LOGIC PAGE 32.20.15.1 

•1 CIRCUITS - B3G07 


-ERR 071- 

| PAR UNITS D INPUT TO BAR ALWAYS ACTIVE 

! LOGIC PAGE 32.20.15.1 

■f CIRCUITS — B3GQ7 

! -ERR 072—. 

| BAR UNITS D OUTPUT NEVER ACTIVE 

| LOGIC PAGE 32.20.15.1 

CIRCUITS - B3GQ7* B3F06, B3E05 

-ERR 073- 

RAR UNITS D INPUT TO BAR NEVER ACTIVE 
LOGIC PAGE 32.20.15.1 

CIRCUITS - B3G07 

-ERR 074- 

PAR UNITS D INPUT TO BAR NEVER ACTIVE 
LOGIC PAGE 32.20.15.1 

CIRCUITS - B3G07 

-ERR 075- 

* - BAR UNITS E OUTPUT ALWAYS ACTIVE 

LOGIC PAGE 32.20.16.1 

: CIRCUITS - B3H05, B3F06* 83F05 

\ ■ . - ' 

i . -ERR 076- 

RAR UNITS E INPUT TO BAR ALWAYS ACTIVE 
( LOGIC PAGE 32.20.16.1 

■ • ! CIRCUITS - B3H05 

r : . .... , : . 

\ " -ERR 077- 

PAR UNITS E INPUT TO BAR ALWAYS ACTIVE 
I LOGIC PAGE 32.20.16.1 

• ? • CIRCUITS - B3H05 

i ; ■ . .' . . . 

-ERR 078- 

BAR UNITS E OUTPUT NEVER ACTIVE 

1 LOGIC PAGE 32.20.16.1 

CIRCUITS - B3H05, B3F06, B3F05 

i -ERR 079- 

RAR UNITS E INPUT TO BAR NEVER ACTIVE 
LOGIC PAGE 32.20*16.1 
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CIRCUITS - 83H05 
-ERR 080- 

PAR UNITS E INPUT TO BAR NEVER ACTIVE 
LOGIC. PAGE 32.20.16.L 
CIRCUITS - B3H05 

-ERR 081- . 

BAR TENS A OUTPUT ALWAYS ACTIVE . 
LOGIC PAGE 32*20*16*1 
CIRCUITS - B3N05? B3F06* B3F03 

-ERR 082- • 

RAR TENS A INPUT TO BAR ALWAYS ACTIVE 
LOGIC PAGE 32*20*16*1 
CIRCUITS - 83HG5 

-ERR 083- ' 

PAR TENS A INPUT TO BAR ALWAYS ACTIVE 
LOGIC PAGE 32.20-16.1 • 

CIRCUITS - B3H05- 

-ERR 084- 

BAR TENS k OUTPUT NEVER ACTIVE 
LOGIC 'PAGE'32.20.16.1 
CIRCUITS - E3H05# 83F06* 8BF05 

-ERR 085- . 

R m TENS A-INPUT TO BAR NEVER ACTIVE 
LOGIC PAGE 32*20.16*l 
CIRCUITS - B3H05 -^V' 

-ERR 086- . 

PAR TENS A INPUT TO BAR NEVER ACTIVE 
LOGIC PAGE 32.20.16.1 
CIRCUITS - B3H05 ■ 

-ERR 087- ' 

BAR.TENS B OUTPUT ALWAYS ACTIVE 
LOGIC PAGE 32.20.16®l ' 

CIRCUITS - B3H06* B3F07 ? B3F05 

' —ERR 088- 

RAR TENS 8 INPUT TO BAR ALWAYS ACTIVE 
LOGIC PAGE 32.20#16*1 
CIRCUITS - 83H06 

—ERR 089- 

PAR TENS B INPUT TO BAR ALWAYS ACTIVE 
LOGIC PAGE 32.20.16*1 
CIRCUITS - B3H06 

-ERR 090- ■ 

BAR TENS B OUTPUT NEVER ACTIVE 
LOGIC PAGE 32*20.16*1 
CIRCUITS - B3H06f B3F07* 83F05 

-ERR 091- 

RAR TENS B INPUT TO BAR NEVER ACTIVE- 
LOGIC PAGE 32.20.16.1 
CIRCUITS - 83H06 

-ERR 092- 

PAR TENS B INPUT TO BAR NEVER ACTIVE 
LOGIC PAGE 37.20.16.1 
CIRCUITS - B3ri06 

—ERR 093- 
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BAR TENS C OUTPUT ALWAYS ACTIVE 
LOGIC PAGE 32.20.16*1 
CIRCUITS - B3H06, B3F07, B3F05 

-ERR 094- 

RAR TENS C INPUT TO BAR ALWAYS ACTIVE 
LOGIC PAGE 32.20.16.1 
CIRCUITS - B3H06 

—ERR 095— 

PAR TENS C INPUT TO BAR ALWAYS ACTIVE 
LOGIC PAGE 32.20.16.1 
CIRCUITS - B3H06 

-ERR 096-: 

. BAR TENS C OUTPUT NEVER ACTIVE 
LOGIC PAGE 32*20®16.1 
CIRCUITS - B3H06, B3F07* 83F05 

-ERR 097- ~ 

RAR TENS C INPUT TO BAR NEVER ACTIVE 
LOGIC PAGE 32.20.16.1 
CIRCUITS - B3H06 

-ERR 098- 

PAR TENS C INPUT TO BAR NEVER ACTIVE 
LOGIC PAGE 32.20.16*1 

■ CIRCUITS - B3H06 

—ERR, 099- ■ 

BAR TENS D OUTPUT ALWAYS ACTIVE 
LOGIC PAGE 32.20.17.1 
CIRCUITS - B3HG?f B3F07# B3G05 

-ERR 100- 

RAR TENS 0 INPUT TO BAR ALWAYS ACTIVE 
LOGIC PAGE 32.20.17.1 
CIRCUITS - B3H07 

-ERR 101- ' ' : 

PAR TENS 0 INPUT TO BAR ALWAYS ACTIVE 

■ LOGIC PAGE 32.20.17.1 
CIRCUITS - B3H07 

—ERR 102- 

BAR TENS D OUTPUT NEVER ACTIVE 
LOGIC PAGE 32.20.17.1 
CIRCUITS - B3H07, 83FQ7* B3G05 

-ERR 103- 

RAR TENS D INPUT TO BAR NEVER ACTIVE 
LOGIC PAGE 32.20.17.1 
CIRCUITS - B3H07 

-ERR 104- * 

PAR TENS B INPUT TO BAR NEVER ACTIVE 
LOGIC PAGE 32.20.17.1 
CIRCUITS « B3H07 

-ERR 105- 

BAR TENS E OUTPUT ALWAYS ACTIVE 
LOGIC PAGE 32.20.17.1 
CIRCUITS - B3H07, B3F07 9 B3G05 

-ERR 106- 
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-ERR 107- 

PAR TENS E INPUT TO BAR ALWAYS ACTIVE 
#GIC PAGE 32.20.17 

Circuits - B3H07 


-ERR 117- 

RAR UNITS D TRIGGER NEVER ACTIVE 
LOGIC PAGE 32.20.11.1 
CIRCUITS - B3E11 


t|RR 108- 

|BAR TENS E OUTPUT NEVER ACTIVE 
VLOGIC PAGE 32.20.17.1 
CIRCUITS - B3H07* B3F07* B3G05 


-ERR 118- 

PAR UNITS D TRIGGER NEVER ACTIVE 
LOGIC PAGE 32.20.13.1 
CIRCUITS - B3G11 


-ERR 109- 

RAR TENS E INPUT TO BAR NEVER ACTIVE 
LOGIC PAGE 32.20.17.1 
CIRCUITS - B3H07. 


-ERR 119- 

RAR TENS B TRIGGER NEVER ACTIVE 
LOGIC PAGE 32.20.12.1 
CIRCUITS - B3F09 


-ERR 110- 

PAR TENS E INPUT TO BAR NEVER ACTIVE 
LOGIC PAGE 32.20.17.1 
CIRCUITS - B3H07 


-ERR 120- 

PAR TENS B TRIGGER NEVER ACTIVE 
LOGIC PAGE 32.20.14.1 
CIRCUITS - B3H09 


-ERR 111- 

RAR PROBLEM THAT COULD BE CAUSED BY ONE OF THE FOLLOWING 

1. UNITS OR TENS TRIGGERS A OR B ALWAYS ACTIVE 
LOGIC PAGE 32.20.11.1 

CIRCUITS - B3E08, B3E09 
LOGIC PAGE 32.20.12.1 
CIRCUITS - B3F08, B3F09, B3B09 

2. UNITS TRIGGER A NEVER ACTIVE 
LOGIC PAGE 32.20.11.1 
CIRCUITS - B3E08 

3. TENS TRIGGERS D OR E NEVER ACTIVE 
LOGIC PAGE 32.20.12.1 

CIRCUITS - B3F11, B3F12* B3C12 

-ERR 112- 

PAR PROBLEM THAT COULD BE CAUSED BY ONE OF THE FOLLOWING 

1. UNITS OR TENS TRIGGERS A OR B ALWAYS ACTIVE 
LOGIC PAGE 32.20.13.1 

CIRCUITS - B3G08, B3G09 
LOGIC PAGE 32.20.14.1 
CIRCUITS - B3H08? B3H09, B3B10 

2. UNITS TRIGGER A NEVER ACTIVE 
LOGIC'PAGE 32.20.13.1 
CIRCUITS - B3G08 

3. TENS TRIGGERS 0 OR E NEVER ACTIVE 
LOGIC PAGE 32.20.14.1 

CIRCUITS - B3H11, B3H12, B3C12 

-ERR 113- 

RAR UNITS TRIGGER B NEVER ACTIVE 
LOGIC PAGE 32.20.11.1 
CIRCUITS - B3E09 

-ERR 114- 

PAR UNITS TRIGGER B NEVER ACTIVE 
LOGIC PAGE 32.20.13.1 
CIRCUITS - B3G09 


—ERR 121— 

RAR TENS C TRIGGER NEVER ACTIVE 
LOGIC PAGE 32.20.12.1 
CIRCUITS - B3F10 

-ERR 122- 

PAR TENS C TRIGGER NEVER ACTIVE 
LOGIC PAGE 32.20.14.1 
CIRCUITS - B3H10 

-ERR 123- 

. RAR PROBLEM THAT COULD BE CAUSED BY ONE OF THE FOLLOWING 

1. UNITS OR TENS TRIGGERS D OR E ALWAYS ACTIVE 
LOGIC PAGE 32.20.11.1 

CIRCUITS - B3E11, B3E12 
LOGIC PAGE 32.20.12.1 

CIRCUITS - B3F11* B3F12, B3B09, B3B10 

2. UNITS ADVANCE NEVER ACTIVE 
LOGIC PAGE 32.20.11.1 
CIRCUITS - B3F13 

3. TENS ADVANCE NEVER ACTIVE 
LOGIC PAGE 32.20.12.1 
CIRCUITS - B3F14, B3C18, B3F15 

-ERR 124- 

PAR PROBLEM THAT COULD BE CAUSED BY ONE OF THE FOLLOWING 

1. UNITS OR TENS TRIGGERS D OR £ ALWAYS ACTIVE 
LOGIC PAGE 32.20.13.1 

CIRCUITS - B3G11, B3G12 
LOGIC PAGE 32.20.14.1 
CIRCUITS - B3H1I* B3H12, B3B11 

2. UNITS ADVANCE NEVER ACTIVE 
LOGIC PAGE 32.20.13.1 
CIRCUITS - B3G13 

3. TENS ADVANCE NEVER ACTIVE 
LOGIC PAGE 32.20.14.1 
CIRCUITS - B3G14, 53F15, B3C18 


-ERR 115- -ERR 125- 

RAR UNITS C TRIGGER NEVER ACTIVE RAR UNITS C TRIGGER rALWAYS ACTIVE 

LOGIC PAGE 32.20.11.1 0 LOGIC PAGE 32.20.LI*1 

CIRCUITS - B3E10 ■ , CIRCUITS - B3ET0 


-E*(R 116- : * -ERR 126- 




PAR UNITS C TRIGGER NEVER ACTIVE 

LOGIC PAGE 32.2U.13.1 

CIRCUITS - 6(3GlO 




PAR UNITS C TRIGGER ALWAYS ACTIVE 

LOGIC PAGE 32.20.13.1 . 

CIRCUITS - B3G10 
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-ERR 127- 

RAR PROBLEM — ERROR PATTERN CANNOT BE IDENTIFIED. 
PROBLEM MAY BE INTERMITTENT. 

LOGIC PAGES 32.20.11.1 AND 32.20.12.1 
CIRCUITS - ALL INDICATED IN ABOVE LOGIC PAGES 

-ERR 128- 

PAR PROBLEM — ERROR PATTERN CANNOT BE IDENTIFIED. 
PROBLEM MAY BE INTERMITTENT. 

LOGIC PAGES 32.20.13.1 AND 32.20.14.1 
CIRCUITS - ALL INDICATED IN ABOVE LOGIC PAGES 

-ERR 129- 

PROBLEM IN CIRCUITS USED TO DETECT COLUMN 80 
LOGIC PAGE 32.31.05.1 
CIRCUITS - B3A27* B3B05, 83B04 

-ERR 130- 

RAR UNITS E TRIGGER NEVER ACTIVE 
LOGIC PAGE 32.20.11.1 
CIRCUITS - B3D12« B3E13* B3F15 

—ERR 131- 

PAR UNITS E TRIGGER NEVER ACTIVE 
LOGIC PAGE 32.20.13.1 
CIRCUITS - B3012* B3E14* B3F15 

—ERR 132— 

RAR TENS A TRIGGER NEVER ACTIVE 
LOGIC PAGE 32.20.12.1 
CIRCUITS - B3FG8* B3B29 

-ERR 133- 

PAR TENS A TRIGGER NEVER ACTIVE 
LOGIC PAGE 32.20.14.1 
CIRCUITS - B3H08* B3B29 

-ERR 134- 

FALSE BAR ADDRESS CHECKS 

LOGIC PAGES 32.20.18.1* 32.20.19.1 

CIRCUITS - ALL INDICATED IN ABOVE LOGIC PAGES 

-ERR 135 THRU 139- 
®»RESERVED*» 

4.3.5 ERROR MESSAGES COMMON ONLY TO ROUTINE 04 —READER 
TRANSLATOR Ft?— 


f 


ii ii 

I ERRORI DESCRIPTION I AID PAGE I CIRCUITS 

I NO. I I_ | 

I 140 I DATA RECORDS ARE MISSING OR I I 

I I ARE OUT OF SEQUENCE. THERE I ' I 

I I IS A TOTAL OF 129 DATA RECORDS! I 

I I SEQUENCE NUMBERED 084 THRU I I 

I I 212. 1 1 

I I---- ■-*-I—-™<~~ I ----- 

I 141 I CAN NOT ISOLATE READER I I 

I I TRANSLATOR FAILURE. SET I I 

I I SECTION SENSE SWITCH 2*TO 1 I I 

I I TO OBTAIN PROGRAM LOG OUT. 1 I 

I——I—-----“-1-—--—- 

I 142 I CAN NOT SET DATA REG 12 TR I 32.20.31.1 I B3F22.B3E22 

I I WITH DIAGNOSTIC WRITE I 42.23.03.1 I B4012 

| -1 ——— * ---— I———— I ——--- 


I 

I 

I 

-I 

I 

I 

I 

I 

I 

-I 

I 

I 

I 

I 

-I 

I 

I 

-I 


DATE 15JUL65 17MAR66 

EC . 124265 125643 



i . ■ 



I 143 I DATA REG 12 TR ON SOLID 
I I 

I I 

I—-- 1 -*---‘--- 

I 144 I CAN NOT SET DATA REG 11 TR” 

I . I WITH DIAGNOSTIC WRITE 

I-1—---- 

I 145 I DATA REG 11 TR ON SOLID 

I I 

II . 

I 146 I CAN NOT SET DATA R€G 0 TR* 

I I WITH DIAGNOSTIC WRITE 

I 147 I DATA REG 0 TR ON SOLID 

I I 

I I 

I —-1-*---•- 

I 148 I CAN NOT SET DATA REG 1 TR 
I I WITH DIAGNOSTIC WRITE 

I--I----- 

I 149 I DATA REG 1 TR ON SOLID 
I I 

I I 

I 150 I CAN NOT SET DATA REG 2 TR 
I I WITH DIAGNOSTIC WRITE 

I -x ..----*-■— - 

1 151 I DATA REG 2 TR ON SOLID 
I I 

I I 

I-— I—----— - 

I 152 I CAN NOT SET DATA REG 3 TR 
I I WITH DIAGNOSTIC WRITE 

j-1---——-— — 

I 153 I DATA REG 3 TR ON SOLID 
I I 

I I 

I 154 I CAN NOT SET DATA REG 4 TR 

I I WITH DIAGNOSTIC WRITE 

I-j- -—---- 

I 155 I DATA REG 4 TR ON SOLID 
I I 

I 1 

I 156 I CAN NOT SET DATA REG 5 TR 

I » I WITH DIAGNOSTIC WRITE 

I 157 I DATA REG 5 TR ON SOLID 

II 



I 158 I CAN NOT SET DATA REG 6 TR 
I I WITH DIAGNOSTIC WRITE 


I—--I------■—- 

I 159 I DATA REG 6 TR ON SOLID 
I I 

I I 

I-x--- 

I 160 I CAN NOT SET DATA REG 7 TR 

I I WITH DIAGNOSTIC WRITE 

I 161 I DATA REG 7 TR ON SOLID 

II 
II 

X-— X—;---“ 

I 162 I CAN NOT SET DATA REG 8 TR 


1 32.20.31.1 I B3F22*B3E22»B3E18 * I 
I I B3H22 I 

I 42.23.03.1 I B4D12 I 

I-X- j 

I 32.20.31.1 I B3G22»B3E22 I 

I 42.23.03.1 1 B4D12 I 

X-—I- 1 

I 32.20.31.1 I B3G22tB3E22yB3E18tI 
I I B3H22 I 

I 42.23.03.1 I B4D12 I 

I 32.20.31.1 I” B3F23»B3E23 I 

I 42.23.03.1 X B4D12 I 

I—-1- -I 

I 32.20.31.1 L B3F23»B3E23«B3E18»1 
I I B3H23 I 

I 42.23.03.1 I B4D12 I 

X--I-1 

I 32.20.32.1 I B3G23tB3E23 I 

I 42.23.03.1 I B4D12 I 

I 32.20.32.1 I B3G239&3E23»B3E18tI 
I I B3H23 I 

I 42.23.03.1 I B4D12 I 

I 32.20.32.1 I B3F24»B3E24 I 

I 42.23.03.1 I B4E12 I 

I 32.20.32.1 I B3F24,B3E249B3E19,1 
I I B3H24 I 

I 42.23.03.1 I B4E12 I 

I--—I---1 

I 32.20.32.1 I B3G24fB3E24 I 

I 42.23.03.1 I B4E12 I 

I 32.20.32.1 I B3G24yB3E24tB3E19yI 
I I B3H24 ■„ I 

I 42.23.03.1 I B4E12 1 

l 32.20.33.1 I B3F25yB3E25 * I 

I 42.23.04.1 I B4E12 I 

I 32.20.33.1 I B3F25,B3E25,B3E19 f I 

I I B3H25 I 

I 42.23.04.1 I „B4£12 I 

I 32.20.33.1 I B3G25*B3E25 I 

I 42.23.04.1 I B4E12 I 

X-1-——I 

I 32.20.33.1 I B3G25*B3E251B3E19*1 

I . I B3H25 I 

I 42.23.04.1 I B4E12 I 

I 32.20.33.1 I B3F26yB3£26 I 

I 42.23.04.1 I B4F12 I 

X--1-.1 

I 32.20.33.1 1 B3F26 f B3E26»B3E209l 

I I B3H26 I 

I 42.23.04.1 I B4F12 I 

I 32.20.34.1 I B3G26tB3E26 I 

I 42.23.04.1 I B4F12 I 

I 32.20.34.1 I B3G26»B3E26*83E20»I 

I I B3H26 I 

I 42.23.04.1 1 B4F12 I 

j- —I—------1 

I 32.20.34.1 I B3F27fB3E27 I 
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I I WITH DIAGNOSTIC WRITE 

I-—-1—- 

I 163 I DATA REG 8 TR ON SOLID 
I I 

I I 

I 164 I CAN NOT SET DATA REG 9 TR 
I I WITH DIAGNOSTIC WRITE 

I ,— |---— --— 

I 165 I DATA REG 9 TR ON SOLID 
I I 

I I 

|-j.-*-—- 

I 166 I B3F22C TO B3E22C 

I- j ----- 

I 167 I B3E22A STUCK AT MINUS Y 

I--I--- 

I 168 I B3F22E TO B3E22D 

I—-1-*----- 

I 169 1 B3E22E STUCK AT PLUS Y 

j —-j —--—~~ 


I 170 I B3G22C TO B3E22H 
—----— 

I 171 I B3E22L STUCK AT MINUS Y 
- 

I 172 I B3G22E TO B3E22P 
—---- 


I 173 I B3E220 STUCK AT PLUS Y 

I--— j----- 

I 174 I B3F23C TO B3E23C 


I 42.23. 04,1 I B4F12 I 

-I-1-1 

I 32.20.34,1 I B3F27,B3E27 # B3E20,t 

I I B3H27 I 

I 42.23*04.1 I B4F12 I 

-I---1---1 

I 32.20.34.1 I B3G27*B3E27 I 

I 42.23.04.1 I B4F12 I 

-I-1-—--*--1 

I 32.20.34.1 I 83G27*B3E27»B3E20#I 

I I B3H27 I 

I 42.23.04.1 I B4F12 I 

-I----1-—--I 

I 32.20.31.1 I B3E22 ?B3F22 I 

* I-*-1- 

I 32.20.31.1 I B3E22 

-1-1-- 

I 32.20.31.1 I B3E22»B3F22 

•I--*-1——* ■--- 

I 32.20.31.1 I B3E22 

. I— —-- 1 ——--- 


I 32.20.31.1 I B3E22,B3G22 

-I—---j--■ 

I 32.20.31.1 I B3E22 

-I-—--1-—-- 

I 32.20.31.i I B3E22 ?B3G22 

* I---—I-——- 

I 32.20.31.1 I B3E22 


I 175 I B3E23A STUCK AT MINUS Y 
x - -I----— 

I 176 I B3F23E TO B3E23D 

I-1—---— *- 

I. 177 I B3E23E STUCK AT PLUS Y 

j- 1 ----- 

I 178 I B3G23C TO B3E23H 


I 32.20.31.1 I B3E23»B3F23 

.j---- !-— 

I 32.20.31.1 I B3E23 

0 1 32.20.31.1 I B3E23»B3F23 
---- 

I 32.20.31.1 I B3E23 

-1—---j-- 

I 32.20.32.1 I B3E23»B3G23 

-—^ j--1--— 

I 179 I B3E23L STUCK AT MINUS Y I 32.20.32.1 I B3E23 

I 180 I B3G23E TO B3E23P I 32.20.32.1 I B3E23,B3G23 

I ~I—-----———I—-——-1 —---■ 

I. 181 I B3E23Q STUCK AT PLUS Y I 32.20.32.1 I B3E23 

I—-1— — --— -- I-— I--— 

I 182 I B3F24C TO B3E24C I 32.20.32.1 I B3E24,B3F24 

I 183 I B3E24A STUCK AT MINUS Y I 32.20.32.1 I B3E24 

I--1—— 


I 184 I B3F24E TO B3E24D 

I —-1 ------—-—-— 

I 185 I B3E24E STUCK AT PLUS Y 

I —-1--—---- 

I 166 I B3G24C TO B3E24H 

I I OR 

I I CAN NOT GET INVALID CARD 

I I CODE VIA 3 NT 4567 

| — I —-—----*-— 

I 187 I B3E24L STUCK AT MINUS Y 
I I OR 

I I B3E24L TO 81G29G 

I-1---—---— 


I 
I 
I 
I 

I 

I ——-—-1 —-—-*-1 

I 32.20.32.1 I B3E24*B3F24 I 

J-— I -~-•---I 

I 32.20.32.1 I B3E24 I 

I- -I- 1 

I 32.20.32.1 I B3E24»B3G24 I 

I I I 

I 32.31.10.1 I B1G29 I 

I I I 

j- x - X 

I 
I 
I 


I 188 I B3G24E TO B3E24P 


l 189 I B3E24Q STUCK AT PLUS Y 

I 190 I B3F25C TO B3E25C 
I I OR 


I 32.20.32.1 I B3E24 

I I 

I 32.31.10.1 I B1G29 

.X-—--1-•--- 

I 32.20.32.1 I B3E24 *B3G24 I 

- j-— —~I-—--———I 

I 32.20.32.1 I B3E24 I 

.X-—-X- ----I 

I 32.20.33.1 I B3E25 9 B3F25 I 

I I I 


I 

I 

I 

I 

I 191 
I 

I 

I 192 

I 193 

I 194 

I 

I 


195 

I 

I 196 

I 197 
I—— 
I 198 
I 

I 

I 

I 

I 

I—— 
I 199 
I 

I . 

I 200 

I 201 

I 202 

I 203 

I 

I 

I 204 

I 205 
I — 
I 206 

I 207 

I 208 

I- 

I 209 

I- 

I 210 

I -- 

I 211 
I—— 
I 212 

I 213 


B1F30L STUCK AT PLUS Y 
OR 

CAN NOT GET INVALID CARD 
CODE VIA 4 NT 567 

B3E25A STUCK AT MINUS Y 
OR 

B3E25A TO B1G30F 
B3F25E TO B3E25D 
B3E25E STUCK AT PLUS Y 


B3G25C TO B3E25H 
OR 

B1F29C STUCK AT PLUS Y 
OR 

CAN NOT GET INVALID CARD 
CODE VIA 5 NT 67 


B3G25E TO B3E25P 


B3E25L STUCK AT MINUS Y 
OR 

B3E25L TO B1G30B 


B3E25Q STUCK AT PLUS Y 


B3F26C TO 83E26C 
OR 

B3G26C TO B3E26H 
OR ( 

CAN NOT GET INVALID CARD 
CODE VIA 6 NT 7 


B3E26A STUCK AT MINUS Y 
OR 

B3E26A TO B1G30G 
B3F26E TO B3E26D 
B3E2.6E Stuck at plus y 
^RESERVED** 


B3E26L 

OR 

B3E26L 


STUCK AT MINUS Y 
TO B1G30L 


B3G26E 

B3E26Q 

B3F27C 

83E27A 

B3F27E 


TO B3E26P 
STUCK AT PLUS Y 
TO B3E27C 
STUCK AT MINUS Y 


TO B3E27D 
B3E27E STUCK AT PLUS Y 


TO B3E27H 
STUCK AT MINUS Y 
TO B3E27P 


B3G27C 
B3E27L 
B3G27E 
B3E27Q STUCK AT PLUS Y 


I 32. 
I 

I 32. 
I 

I 32. 
I 

I 32. 

I 32. 

I 32. 

I 32. 
I 

I 32. 
I 

I 32. 
I 

I 32. 
I 

I 32 

I 32 

I 32 

I 32 
I 

I 32 
I 

1 32 
I 

I 32 
I 

I 32 
I 32 
I 32 
I 

I 32 
I 

I 32 
I 32 
I 32 
I 32 
I 32 
I 32 
I 32 
I 32 
1 32 
I 32 
I 32 


B1F30 

81G30 

B3E25 

B1G30 


31.10.1 I 

l 

31.10.1 I 
I 

20.33.1 I 
I 

31.10.1 I 

---x 

20.33.1 I 

--X 

20.33.1 I 
-1 

20.33.1 I 
I 

31.10.1 I 
I 

31.10.1 I 
I 

- --1 

20.33.1 I 

I 

31.10.1 f 

20.33.1 I 

20.33.1 I B3E25 

———I-— 

20.33.1 I 
I 

20.33.1 I 
I 

31.10.1 I 
I 

- 

20.33.1 I 
I 

31.10.1 I 

20.33.1 1 
*—————I 
20.33*1 I 

1 

-—I 


B3E25 * B3F25 
B3E25 

B3E25 # B3G25 

B1F29 

B1G30 


B3E25 

81630 


83E25*B3625 


B3£26»B3F26 

B3G26 

B1G30 


B3E26 

81G30 

83E26 

83E26 


B3E26 

B1G30 


20.34.1 I 
I 

31.10.1 I 

--.-1- 

20.34.1 I 

--— I- 

20.34.1 I 

- -™l- 

20.34.1 I 

—--I- 

20.34.1 I 

20.34.1 I 83627»83F27 

——— I ———- 

20.34.1 I B3E27 


B3E26 ? 83G26 
B3E26 

83E27»B3F27 

B3E27 


20.34.1 I 
———-I- 

20.34.1 1 

—-—I- 

20.34.1 I 

---I* 

,20.34.1 I 


B3E2?*83G27 

B3E27 

B3E27 *83627 
83E27 


I 

I 

l 

I 

1 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

1 

I 

I 

I 

I 

I 

1 

I 

I 

I 

l 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

-1 

I 

—-I 

1 


DATE 

EC 


15JUL65 

124265 


17MAR66 

125643 


ID F804-* 
PAGE , 9 


DATE 15JUL65 

EC 124265 


17MAR66 

125643 


ID FS04-# 
PAGE 9A 
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P/N 

PAGE 



DATE 

EC ' 


15JUL65 

124265 


17MAR66 

125643 


ID F804-# 
PAGE 10 


DATE 

EC 


15JUL65 

124265 


I7MAR66 

125643 


ID 

PAGE 


3 0 0 0 0 0 0 


OQQQOQQOOOOOOOOOOOOOO 


840257 

10A 


F8G4-* 
10 A 


o o o o 



















































004)00000000000000000000 


0 Q Q Q Q 9 © 'O 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 

c> 

2821 - 2540 READER PUNCH SCAN 


B4AX4G STUCK AT MINUS Y 


20.32.1 

20 . 66.1 


•♦RESERVED*# 
B3E24Q TO B4A22Q 


B3E26Q TO B4A22R 


20 . 66.1 

20.32.1 


20 . 66.1 

20.34.1 


B3E26E TO B4A22H 


ALWAYS GET READ XLATE 6 


B4A 2ZP STUCK AT PLUS Y 

OR 

B4B13C STUCK AT MINUS Y 


266 


B3E22E TO B4B07B 


B3E23E TO B4B07A 


B4B07G ’STUCK AT MINUS Y 
B4B07G STUCK AT PLUS Y 


83E23E TO B4B07D 


B3E22Q TO B4B07E 


I 32 
I 32 

I 

I 32 
I 32 

I 32 
I 32 

I 32 
I 32 

I 32 
I 

I 32 

I 32 
I 32 
I 32 

I 32 
I 32 

I 32 
I 32 

I 32.20.61.1 

-1--- 

I 32.20.61.1 

-1-- 

I 32. 


I B3E23 

I- 

I B4A14 


. 20 . 66.1 

.20.33.1 

.20.66.i 

.11.15.1 

. 20 . 66.1 

.11.14.1 

.20.66.1 

.20.61.1 

.20.31.1 

.20.61.1 

.20.31*1 


-I -- - 

I 

I B4A22 
I B3E24 

I B4A22 
I B3E26 

* 1 “- --- 

I B4A22 
I B3E26 

•I—--- 

I B4A22 9 B4A14 ? B4B 
I B4C13 
I BIGli 

I B4A22 
I BIF 10 
I B4B13 

•J—-—--— 

I B4B07 
I B3E22 

■I*—-—*-——- 

I B4B07 
I B3E23 

I B4B07 

I B4B07 


I 
I 
I 
I 
I 

--1 

I 
I 

--1 

I 

I 

*——I 
I 
I 

—-1 
13,1 

I 

I 

I 

I 

I 

-1 

I 

I 

-—I 

I 

I 

— I 
I 


B4B07C 

STUCK 

AT 

MINUS Y 


B4B07C 

STUCK 

AT 

PLUS Y 



B3E27E TO B4B07H 
OR 

84A08A TO B4CX0Q 
OR 

B4C23L TO B1C10B 


275 I B3E27Q TO B4B07L 


B4B07F STUCK AT MINUS Y 
OR 

B4B07F TO B4B23P 


84B07F STUCK AT PLUS Y 
OR 

B4B23C STUCK AT MINUS Y 


B3E24E TO B4B09C 


B3E27E TO B4B09A 


I 32, 

I 32, 
I 32. 

I 32 

I 32, 

I 32, 
I 32, 
I 32, 
I 32, 
I 32, 

I 32, 
I 32. 

I 32. 
I 

I 32. 

I 32. 
I 

I 32, 

I 32, 
I 32, 


20.61.1 
20.31.1 


20.61.1 

20.31.1 


.20.61.1 


20.61.1 

20.61.1 

20.34.1 

20.63.1 

20.61.1 
20.62.1 

20.61.1 

20.34.1 


-I—— 

I B4B07 
I B3E23 

I-—- 

I B4B07 
I B3E22 

I B4B07 

I B4B07 

I-—- 


I B4B07 
I B3E27 
I B4C10 
I B4A08 
I B4C23 

I-- 

I B4B07 
I B3E27 
“I- 


20.61.1 

20.61.1 


I 84B07 

I 

I B4B23 
-I--- 


20.61.1 

20.61.1 


20.62.1 
20.32.1 


83E24Q TO 84B09D 


-I- 
I 
1 

I 32, 
I 32, 


I 84B07 
I 

I B4B23 

-I- 

I B4B09 
I B3E24 
-I —-- 


32, 

32, 


20.62.1 

20.34.1 


20.62.1 

20.32.1 


I B4B09 
I B3E27 

I-■ 

I B4B09 
I B3E24 


I 

“I 

I 

I 

—-1 
I 
I 

“I 

I 

-1 

I 

—-I 
I 
I 
I 
I 
I 

-1 

I 

I 

- 1 

I 

1 

I 

-1 

I 

I 

I 

-I 

I 

I 

-1 

I 

I 

- 1 

I 

I 
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I-.-I-—------—--1-1—-—-—-1 

I 281 I B3E25E TO B4B09E I 32.20.62.1 1 B4B09 I 

I I I 32.20.33.1 I 83E25 I 

j-. i — -—-- I--1 — -— I 

I 282 I 83E230 TO B4B09B I 32.20.62.1 I B4809 I 

II I 32.20.32.1 I B3E23 I 

I 283 I B3E25Q TO B4B09F I 32.20.62.1 I 84809 l 

II I 32.20.33.1 I B3E25 I 

I 284 I B3E26E TO B4B09G I 32.20.62.1 I B4B09 I 

II ‘ I 32.20.33.1 I B3E26 I 

I — I---— I-*-— I — --I 

I 285 I B3E26Q TO B4B09H l 32.20.62.1 I B4B09 I 

I I I 32.20.34.1 I B3E26 I 

I 286 I B3E27Q TO B4B09Q I 32.20.62.1 I B4B09 I 

I I I 32.20.34.1 I B3E27 I 

I—-1-—-----————i—,™.-- j—---—I 

I 287 I B4B09P STUCK AT MINUS Y I 32.20.62,1 I 84B09 I 

1 288 I B4B09P STUCK AT PLUS Y I 32.20.62.1 I B4B09 I 

I 1 ---* — ——- I • — I ™ ———« ! 

I 289 I B3E27Q TO B4810F I 32.20.63.1 l B4810 I 

II I 32.20.34.1 1 83E27 I 

I 290 I B3E24A TO 84B10L I 32.20.63.1 I B4B10 I 

II I 32.20.32*1 t 83E24 I 

I 291 I 83E23A TO B4B10E I 32.20*63.1 1 B4B10 1 

I I I 32.20.31.1 1 S3E23 I 

I 292 I ALWAYS GET READ XLATE 0 I 32.20.63.1 I B48!0*B4CI0*B4C11 I 

I 293 I CAN NOT GET READ XLATE 0 VIA I 32*20.63.1 I 84B10 1 

1 I MINUS Y DATA REG 0.2.N9 I I I 

I 294 I B3E24Q TO B4B14D I 32*20.66.1 I B4B14 I 

II . I 32.20.32.1 I B3E24 1= 

I 295 I B3E250 TO 848148 I 32.20.66.1 I 84814 I 

I I I 32.20.33.1 I B3E25 I 

I 296 I B3E26Q TO B4B14A I 32.20.66.1 I B4814 I 

I I I 32.20*34.1 I B3E26 * I 

I —-- I------— l—r~ I--~ I 

I 297 I PRESERVED** I I 1 

I 298 I B4B14C STUCK AT PLUS Y I 32.20.66.1 I 84B14 I 

I I OR I 1 f I 

I I B4C08F STUCK AT MINUS Y I 32.20.66.1 I 84C08 I 

'I 299 I B3E23L TO B4C08R I 32.20.62.1 1 84CQ8 I 

I I OR I 32.20.32.1 I $3E23 I 

I I B4A09P TO B4C14P I 32.20.62.1 I B4C14»B4A09 1 

L ^ OR I I I 

I I B4C23L STUCK AT PLUS Y I 32.20.62.1 I B4C23 I 

I 300 I B4008A STUCK AT MINUS Y I 32.20.62.1 I B4C08 I 

II" I I B4C14 I 

II I 32.11.12.1 I B1D09 I 

I 301 I B3E22A TO 84C12D I 32.20.64.1 I B4C12 I 

II I 32.20.31.1 I B3E22 1 

I 302 I B3E22Q TO B4C12Q I 32.20.64.1 I B4C12 I 

II I 32.20.31.1 I 83E22 1 
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DATE 

EC 
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125643 


ID F804-* 
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DATE 

EC 


15JUL65 

124265 


17MAR66 

125643 


ID ' f6G4~» 
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P/N 

PAGE 


DATE 

EC 


I 303 I 
I 1 

I 304 1 
I I 

1 — 1 “ 
I 305 1 
I I 

I———I- 
I 306 I 
I I 

I—— I- 
I 307 I 
I 1 

I-—i- 

1 308 I 
I I 

I--1- 

I 309 I 

I 310 I 

I 311 I 
I I 

l——I- 
I 312 I 
I 1 

1_— i- 

I 313 I 
I 1 

I I 

I 314 3 

I--i- 

I 315 I 
I I 

I„I- 

I 316 I 
I I 

I 317 I 
I I 

I 318 1 

I I 

I . I 
l — l- 
I 319 I 


NEVER GET READ XLATE 2 


20.64.1 

11.13.1 


CAN NOT BLOCK READ XtATE 2 
VIA'MINUS Y DATA REG 12.N11 


B3E26G TO B4C13D 


20.64.1 


83E26E TO B4C13C 


B3E25Q TO B4C13B 


B3E25E TO B4C13A 


20 . 66.1 

20.34.1 


20 . 66.1 

20.33*1 


20 . 66.1 

20.33.1 


20 . 66.1 

20.33.1 


B4C13G STUCK AT MINUS Y 
B4C13G STUCK AT PLUS Y 
B3E26E TO 81F29D 

B3E26Q TO B1F29E 


B1F29C STUCK AT MINUS Y 
OR 

81F29C TO B1G30A 


20.66.1 

20 . 66.1 


31*10.1 

20.33.1 


31.10.1 

20.34.1 


PRESERVED** 
B3E25Q TO 81F30G 


B3E26E TO B1F30E 


B3E26Q TO B1F30F- 


B1F30L STUCK AT MINUS Y 
OR 

81P30L TO B1G30D 


♦♦RESERVED** 


I 320 I *«RE$ERVED«» 

I 321 I ♦♦RESERVED** 

ALWAYS GET INVALID CARD CODE 


322 I 

I 

I 

I 


1 32. 

I 32. 

I 32* 

I 

I 32. 

I 32a 

I 32a 

I 32a 

I 32, 

1 32a 

I 32, 

I 32a 

I 32, 

I 32, 

I 32, 

I 32. 

I 32. 

I 32, 

I 32, 

I 

I 32, 

I 

M— 

I 32a 
I 32, 

I 32a 
I 32a 

I 32a 
I 32a 

I 32. 

I 

l 32a 
I 
I 
I 

I 32a 
I 32a 
I 

I 32.11.25.1 


I B4C12 
I B1E10 

-I--- 

I B4C12 
I 

-I—-- 

! B4C13 
I B3E26 

I 84C13 
I B3E26 

-I—-— 

I 84C13 

1 B3E25 
“I—— 

2 B4C13 
I B3E25 

-I—--- 


31.10.1 

31.10.1 


31.10.1 

20.33.1 


I B4C13 

I—--- 

I B4C13 
-I---- 

1 B1F29 

2 B3E26 

-I--- 

I B1F29 
I B3E26 

I 81F29 
I 

I B1G3G 

-I- 

I 

“I—-- 

I BIF30 
I B3E25 
-I—— 


31.10.1 

20.33.1 


I B1F3Q 
I B3E26 


31.10.1 

20.34.1 


31.10.1 

31.10.1 


31.10.1 

12.34.1 


I B1F30 
I B3E26 

-I—-— 

I B1F30 
I 

I B1G30 

-I——-— 

I 

I 

-I—-— 

I 

-I—-—— 

I B1G30»B1G29» 
I B1C27 1 B1C23 # 
I B1A19 
I B1G08 


I 

I 

-— 1. 

I 

1 

-,j 

I 

I 

—--1 

I 

I 

---1 

I 

I 

I 

I 

I 

-a-->1 

I 

— --"I 

I 

I 

I 

I 

-_-j 

I. 

1 

I 

—“I 

I 

—■— I 
I 
1 

— I 
I* 
I 

I 

I 

I 

I 

I 

I 

I 

-———I 

I 

— 1 


327 


I ——I -———— 

; 323 I **RESERVED** 

I 


-I* 

I 


1 324 I 83E240 TO B1H30A 

I 

32.31.10.1 

I 

B1H30 

; i 

I 

32.20.32.1 

I 

B3E24 

; —-1------ 






I 325 I B3E26Q TO B1H30E 
I I 

I 326 I- B3E26E TO BIH30D 


31.10.1 

20.34.1 


I 


I 


I 32 
I 32 

I 32.31.10.1 
I 32.20.33.1 


I B1H30 
I B3E26 

I ~--—--« 

I B1H30 
I B3E26 


B1H31 I 
B1H17«I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 


15JUL65 

124265. 


17MAR66 

125643 


ID F804-* 
PAGE 12 


DATE 

EC 


I- 
I 
I 

I 328 
I 

I 329 

I 

I 

1 330 
I 

I- 

I 331 

I 332 

I 333 

I 334 

I 335 

I 336 

I- 

I 337 

I 338 
I-- 


B3E25E TO B1H30B 


B3E25Q TO B1H30C 


B1H30G STUCK AT MINUS Y 
OR 

B1H30G TO B1G29B 


I 32. 
I 32a 

I 32a 
I 32. 

I 32a 
I 

I 32. 


31.10. 

20.33. 


1 I B1H30 
1 I B3E25 


-I- 


31.10, 

20.33, 


CAN NOT GET INVALID CARD CODE 
VIA 2 NT 34567 


B4A07G TO 84A08R 


31.10, 

31.10, 

31.10, 


B4A08A STOCK AT MINUS Y 


I 32 
I 

■1“-- 

I 32.20.61 

•I——- 

I 32.20.61.1 I B4A08 


1 I B1H30 
1 I B3E25 

1 I B1H30 
I 

1 I B1G29 

— I--- 

1 I B1H30,B1G29 
I 

1 I B4A08*B4A07 


B4A0.7C 

TO B4A08P 


-—-I- 

I 

32.20.61.1 

•I- 

I 

B4A08,B4A07 1 

B4A08C 

STUCK.AT MINUS 

Y 

I 

32.20.61.1 

I 

•I 

I 

B4A08 1 

84A07F 

TO B4A08G 


i 

32.20.61.1 

B4A08»B4A07 ] 

B4A08F 

STUCK AT MINUS 

Y 

i 

32.20.61.1 

I 

» T 

B4A08 1 

84B07G 

TO B4A08Q 


i 

32.20.61.1 

1 

I 

-I 

B4A08*B4B07 

B4A08B 

STUCK AT MINUS 

Y 

i 

32.20.61.1 

1 

I 

I.T 

B4A08 

B4B07C 

TO B4A08E 


i 

32.20.61.1 

1 

I 

. T 

B4A08tB4B07 

B4A0BD 

STUCK AT MINUS 

Y 

i 

32.20.61.1 

A 

I 

-t 

B4A08 



B4B08C STUCK AT MINUS Y 
B4B08C STUCK AT PLUS Y 


15JUL65 

124265 


17MAR66 

125643 


ID 

PAGE 


/ "> 
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P/N 

PAGE 


411 


DATE 

EC 


83E23E TO B481QA 
OR 

B3E23Q TO 04C11L 


B3E23E TO B4B10A 


B3E23L TO B4810R 


♦PRESERVED*® 


CAN NOT GET READ XLATE 0 VIA 
MINUS ¥ DATA REG NOT 0 AND• 
NOT 8 NOT 9 AND 1 


416 


84B23C TO B4B10B 


B4C23E TO B4B10G 


♦♦RESERVED** 


CAN'NOT GET■READ XLATE 0 VIA 
MINUS Y DATA REG 2G3&4&5&6&7 
AND NOT 8 NOT 9 


420 


84C23E TO 84B10P 

B4B08P TO B4B10D 


B3E27A TO 84B10Q 


. *»RESERVEO*« 


CAN NOT GET READ XLATE 0 VIA 
MINUS Y DATA REG 2C3C4E5C6S? 
AND 2 AND 8 


B4B08P TO 8481ID 


84C23E TO B4B11F 


B3E27L TO 84B11E 


428 


430 

431 


•♦RESERVED*® 


CAN NOT GET READ XLATE i VIA 
MINUS Y DATA REG 2 ZONES AND 
2£.3£4G5C6G7 AND 9 


B3E27L TO B4B11E 


B3E27A TO B4B11B 
OR 

B3623L TO 8* B11Q 
OR 

84 BO SC TO B4L.11.L 


- I----I -----I 

I 32.20.63.1 I B4B10 I 

I 32.20.31.1 I B3E23 I 

I 32*20.63.1 I B4C11 I 

I 32.20.32.1 I B3E23 I 

I 32.20.63.1 I B4B1Q . I 

I 32.20.31 * 1 I B3E23 « I 

- ——I -—I 

I. 32.20*63.1 I B4B10 I 

1 32.20®32.1 I B3E23 I 

I ' I I 

I 32.20.63.1 I 84BI0 ' I 

I I 1 

I . I t 

-1-— — I---——-1 

! 32.20.63.1 I 84810 I 

I 32.20.61®I I B4B23 I 

I '32.20.63.1 I B4BI0 I 

I 32.20.62.1 I B4C23 I 

X I I 

* I———-1 

I 32.20®63.1 I 84B10 ' I 

I I I 

I I • .1 

* I—-■-— I .——*— — I 

! 32®20®63*I 1 B4BI0 I 

I 32.20.62.1 I 84C23 I 

•I 32.20.63.1 I B4B10 ' I 

I 32.20.61.1 I 84B08 I 

I 32.2.0®63® 1 I 84810 I 

I 32.20.34.1 I B3E2? I 

I ; I I 

I 32.20.63.1 I B4B10 I 

I I I 

I I 1 

I 32.20.64.1 I B4811 I 

1 32.20.61.i I B4808 I 

-1——-— I ————--1 

I 32.20.64.1 I B4811 I 

I 32.20.62.1 I B4C23 I 

* I—- I- ---———1 

I 32.20.64.1 I 84B11 I 

I 32.20.34.1 I S3E27 I 

- I—--—I —- -—I 

I . I I 

1 32.20.64.1 I B4BI1 I 

I I I 

I I I 

I 32.20.64.1 I B4B11 I 

I 32.20.64.1 I B4B11 I 

I 32.20.34.1 I B3E27 I 

I 32.20.32*1 I B3E23 I 

I I I 

I 32.20.64.1 I B4A11 I 

I 32.20.61.1 1 B4B08 I 


15JUL65 

124265 


17MAR66 
125643 


;) O O O O O O 


r 


ID FB04-* 
PAGE 14 



B4B08P TO B4B11A 


83E23Q TO B4B11C 
OR 

B3E27E TO B4BI1R 


♦•RESERVED** 


I 32. 
I 32* 
-I 
I 32. 
I 32 
I 32 
I 32 

I 


20.64.1 

20.61.1 

20.64.1 

20.32.1 

20.64.1 

20.34.1 


I B4B11 
I B4B08 

“I--4-- 

I B4B11 
I B3E23 
I B4B11 
I 83E27 

I 


435 I CAN NOT GET READ XLATE 1 VIA 
I MINUS Y DATA REG 9 AND 8 AND 
I 2 ZONES AND NOT 1 

436 I B3E27L TO B4B11G 


♦♦RESERVED** 


*20.64.1 
.20.34.1 


B4B08P TO 848111 


♦♦RESERVED** 


I 32.20.64.1 

I 

I 

I 32. 

I 32, 

I 

I 32«20.64®1 
I 32.20.61.1 

I 


I B4B11 

I 

I 

I-- 

I B4B11 
I B3E27 ' 

- 

I 

I—— 
I B4B11 
T B4B08 
■I—— 
I 


♦♦RESERVED** 


I ' 

I 

^ 

I B4B11 


CAN NOT GET READ XLATE 

1 VIA 

I 32.20.64.1 


MINUS Y DATA REG 9 AND 

1 AND 

1 

I 


2 ZONES AND NOT 8 

„ T[ t . ilTt _, m 

I • 

1 

_l^. 


B3E22E TO B4B12A 


>20.65*1 

.20.31.1 


B3E23A TO B4812R 
OR 

04922A TO 84BO7P 


.20.65.1 
*20.31.1 
•20.65.1 
•20.62.1 
—■-— I- 


B4C23Q TO B4B128 


NEVER GET READ XLATE 3 


CAN NOT BLOCK READ XLATE 3 
VIA MINUS Y DATA REG NOT T 
AND 0•AND 1C2E3C4&5&6C768&9 

B4C23Q TO B4B12B 
OR 

B3E22L TO B4612F 


I 32 

I 32 

I 32 
1 32 
I -32 
I 32 

I 32.20.65.1 
I 32.20.62.1 
* -- 

I 32.20.65.1 
I 32.11.13.1 

I 32.20.65.1 

I 

I 

I 32 
I 32 
I 32 
I 32 


I B4B12 
I B3E22 

-I--— 

I B4B12 
I B3E23 
I B4B07 
I 84822 


I B4B12 
I 84C23 

--- 

I 84812^84807 
.1 B1E10 

*1——4--— 


20.65.1 

20.62.1 
20.65.1 
20.31*1 


* 1 - 


I B4B12 

I 

I 

I B4B12 
I B4C23 
I 84B12 
I B3E22 
* I - 


B3E22A TO B4B12G 


B3E22Q TO B4BX2H 


^RESERVED** 


CAN NOT BLOCK READ XLATE 3 
VIA MINUS Y DATA REG 1C2&3& 
465C6&768&9 AND T AND NOT E 

B3E22Q TO B4B12D 


1 32* 
I 32. 

I 32. 
I 32. 

I 

I 32. 
I 

I " . 

I 32, 
I 32, 


20.65.1 

20.31.1 


20.65.1 

20.31.1 


20.65*1 


20*65.1 

20.31.1 


1 B4B12 
I B3E22 

I B4B12 
I B3E22 

I 

I B4B12 
I 

l. 

*1 — 

I B4B12 
I B3E22 


I 
I 
I 
I 

I . 

I 
I 
I 
1 
I 
I 
I 
I 
I 
I 
I 
1 

•I ■ 
1 
■I 
I 
I 
•I 
I 

I •' 

I 

I- 
I 

I • 
I 
I 

! I • 

I 

—I 
I 
I 
1 
I 

—I ' 
I 
I 

»~I 
I 

'.I ' 

—I 
I 
1 
I 

— I ■ 
I 
I 
I 

I 

—I 
I - 
1 

—I 
I 
I 

I 

I 

I 

, V I 

‘I 
I 
1 


15JUL65 

124265 


17MAR66 

125643 


ID 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 

2821 - 2540 READER PUNCH SCAN 


P/N 

PAGE 


— I- 


I B4A08C TO B4B12Q 
I 


32.20.65.1 

32.20.61.1 


I **RESERVED** I 

-I-----*---I- 

I CAN NOT BLOCK READ XLATE 3 I 

I VIA MINUS Y DATA REG NOT E I 

I AND T AND 0 I 


32.20.65.1 


B3E27A TO B4B19R 

♦♦RE5ERVED** 


B4B19P STUCK AT MINUS 
♦•RESERVED** 


I 

I 

-I- 
I 

I 

I 

— X- 


32.20.65*1 
32.20.34.1 


32*20*65*l 


460 


♦♦RESERVED** 


♦♦RESERVED** 


B3E27A TO B4C10D 


32.20*63. 1 
32.20.34.1 


B3E270 TO B4CX0P 


PRESERVED** 


♦♦RESERVED** 


I 

-I- 
I 

-I- 

I 
I 

-I- 
I 
I 

-I--- 

I 

I 


-I- 

I B4B12 
I B4A08 

-l -* 

I 

-I —-— 

I B4B12 

I 

I 

-1 —-, 

I B4B19 
I B3E27 
-I— - - 

I 

-I—-- 

t B4B19 

*j— 

1 

-I————• 
I 

I 

I B4C10 
1 B3E27 


32.20.63*1 

32.20.34.1 


I B4C10 
I B3E27 


CAN NOT GET READ XLATE 
MINUS Y DATA REG 8 AND 
AND T AND E 

B3E23L TO B4C10L 
OR 

B3E22E TO B4C11F 
OR 

B3E22Q TO B4C11R 


0 VIA I 
NOT 9 I 
I 

-— 1 — 


32.20.63.1 I B4C10 
I 
I 


B4A08C TO B4C10E 


B3E27Q TO B4C10F 

♦♦RESERVED#* 


CAN NOT GET READ XLATE 
MINUS Y DATA REG 1 AND 
0 AND NOT 9 


B3E27Q TO B4C11D 


♦♦RESERV-ED** 


B4A08F TO B4C11E 


475 I **RESERVED** 


CAN NOT GET READ XLATE 0 VIA 
MINUS Y DATA REG NOT 9 AND 
NOT T AND E AND 0 


I 

I 

I 

I 

-I- 

I 

0 VIA I 
T AND I 
I 

I 

I 

I 

, I 
I 

I 

I 
I 

I 


I 
I 
I 
I 
I 

32.20.63.1 

32.20.61.1 


32.20.63.1 

32.20.32.1 

32.20.63.1 

32.20.32.1 


I B4C10 
I B3E23 
B4C11 
B3E22 


32.20.63.1 

32.20.34.1 


32.20.63.1 


I 

I 
I 

-I—- 

I B4C10 
I B4A08 
-I-———- 
I B4C10 
I B3E27 

-I-* 

I 

I B4C10 

I 

I 

-I —- 


32.20.63.1 

32.20.34.1 


32.20.63.1 

32.20.61.1 


32.20.63.1 


I B4C11 
I B3E27 

I--- 

I 

I--- 


I B4C11 
1 B4A08 

•I- 

I 

I B4C11 
I 

I 


“I 
I 
I 

--1 

l 

I 

I 
I 

■-1 

I 
I 

-1 

I 

I 

-—I 
I 

I 

1 

-1 
I 
I 

-I 

I 

I 

1 

-——I 

I 

■—I 

I 

I 

I 

—“I 

I 

I 

i 

I 

I 

I 

I 

——I 

I 

I 

I 

I 

I 

I 

---I 

I 

I 

-1 

I 

--I 

I 

I 

I 

I 

I 

I 


I-1 

I 477 I 
I I 

I—--I 

I 478 I 
I I 

I 479 I 
I I 

I 480 I 
I I 

I 481 I 

I--j- 

I 482 I 
I I 

• l I 

1- 

I 483 I 
I I 

1—- V 

l 484 I 
I I 

1 485 I 

|—I* 

I 486 I 

I 487 I 

I 488 I 
I I 

I I 

I I 

I 489 I 
l 
l 

I 490 
1 

I 491 I 
I I 

1--i 

I 492 I 


I- 


-I- 


I 493 I 


I 494 I 
I I 

I-— I* 

I 495 I 
I I 

I 496 I 
I I 

I 497 I 
I I 

I 498 I 
I I 

I 499 I 


----.. *----——I~----1 ---x 

B3E23L TO B4C11C I 32.20.63.1 I B4C11 I 

I 32.20.32.1 I B3E23 I 

B3E27E TO B4C11B I 32.20.63.1 I B4C11 I 

I 32.20.34.1 1 B3E27 I 

----- I-— — I T--—— ~l 

B4A08F TO B4C11E I 32.20.63.1 I B4C11 I 

I 32.20.61.1 I B4A08 I 

B3E22E TO B4C11A I 32.20.63.1 I B4C11 I 

I 32.20.31.1 I B3E22 I 

. -—----^-! -- -! - -- -----— * - - j; 

♦♦RESERVED** I I I 

CAN NOT GET READ XLATE 0 VIA 1 32.20.63.1 I B4C11 I 

MINUS Y DATA REG 1 AND NOT 81 I I 

AND E AND 0 AND NOT T I I 1 

B4B23C TO B4C11G I 32.20.63.1 I B4C11 I 

I 32.20® 61.1 I B.4B23 I 

- j 

B3E23A TO 84C110 I 32*20.63.1 I B4C11 I 

I 32.20.31.1 I B3E23 I 

♦♦RESERVED** I t I I 

- -J----— J — .—-——-—-.--...-I ' 

♦♦RESERVED** I I X 

♦♦RESERVED** I ' I . .1 

CAN NOT GET READ XLATE 0 VIA I 32.20.63.1 I B4C11 ' ■ I ■ 

MINUS Y DATA REG NOT 8 AND 1 I I 

NOT 9 AND 0 AND NOT 1 AND ! 1 ! 

NOT E I I I 

83E22L TO B4C12E I 32.20.64.1 I B4C12 I 

OR I 32.20.31.1 I B3E22 I 

B4B22A TO B4C12B I 32.20.62.1 I B4B22 I 

B4C23Q TO B4C12F I 32.20.64.1 I B4C12 I 

I 32.20.62.1 I B4C23 I 

83E23E TO B4C12L I 32.20.64.1 I B4CI2 I 

I 32.20.31.1 I B3E23 I 

♦♦RESERVED** I I I 

CAN NOT BLOCK READ XLATE 2 I 32.20.64.1 I B4C12 I 

VIA MINUS Y DATA REG E AND I II 

1G2G3G4G566G7 AND NOT 01 I I 

B4A08A TO B4C13E I 32.20*66.1 I B4C13 I 

I 32.20.61.1 I B4A08 I 

B4823C TO B4C13F I 32.20.66.1 I B4C13 I 

I 32.20.61.1 I B4B23 I 

B3E25Q TO B4C13H 1 32.20.66.1 I B4C13 I 

I 32.20.33.1 I B3E25 I 

------ I- - 1---*--?*-——-1 

B3E25E TO B4C13L I 32.20.66.1 I B4C13 I 

I 32.20.33.1 I B3E25 I 

B3E23E TO B4C13Q I 32.20.66.1 I B4C13 I 

I 32.20.31.1 I B3E23 I 

83E23Q TO B4C13R I 32*20.66.1 I B4C13 , I 


DATE 

EC 


15JUL65 

124265 


17MAR66 

125643 


ID F804-* 
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125643 


ID 

PAGE 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


2821 >- 2540 READER PUNCH SCAN 


P/N 

PAGE 


DATE 

EC 


) ;> O O 


I 84C13P STUCK AT MINUS Y 
-1 -A*—~ 


I **RESERVED** 

-I 

I.B3E23L TO B1629D 
I . 


• B4C23E- TO B1G29F 


••’RESERVED**. 


CAN- NOT GET INVALID CARD . 
CODE VIA MINUS’Y'DATA .RES 
1 'AND.2S3&4C5&6&-7 


506 


•►•RESERVED** 
*4RESi:ERV€D** . 


••RESERVED*®. . 


■ 81G30P STUCK ; AT'-MINUS. Y 


••RESERVED**:- 


••RESERVED’*# 


B4A088 TO' 848070 


513 I 84B07R STOCK AT MINUS Y 


••RESERVED** 


PRESERVED*# 


••RESERVED** 



520 


t *.*RES ERVED** 


I , } 

I ••RESERVED** 

i 

i ; 

[. .-—I- . - ' • - *“““*"* 

[ 84B10C STUCK AT MINUS Y 

I 32#20® 

63.1 I B4B10 - - i 

[ U ~- :*<-■—^ ■T' 7 * 1 T “ 

I **RESERVED** 

I 

I . 5 

I ~ ^ 

t **RESERVED** 

I 

I ; 3 

E *«RESERVED** . 

■ I 

I 

[ **R.ES ERVED** 
f --— 

I 

-X—- 

l 


B4B11P STUCK AT MINUS'Y- 


••RESERVED**, 


B4B22A TO B4B1-2E 


••RESERVED** 


B3E23E TO 84B12L ' 


••RESERVED** 


32.20.64.1 I 84811 ' 

» I 

I B4B12 
I B4B22 

I 

I 84B12 
I B3E23 

I ■ • 


32*20* 65®1 
32*20.62.1 


32*20.65.1 

32*20.31.1 


I 

I 

I 

I 

I 

I 

1 

I 

I 

I 

I 

— I 
I 

— I 
I 
I 

— I 
I 

— I 
I 
I 

— I 

I 


15JUL65 

124265 


17MAR66 

125643 


O O O 




ii 


ID F804-* 
PAGE 16 




CAN NOT BLOCK READ XLATE 2 
VIA MINUS Y DATA REG NOT 
NUMERIC AND NOT T AND E 
AND 0 

B4A08D TO B4C12G 


20® 64#1 I 
I 
I 

I 

I- 

I 32.20.64.1 I 
I 32.20*61.1 I 


04C12 

B4A08 


[ **RESERVED** 

~~ T 

. i • 


E **RESERVED** 

i 

i— 

■ i 



I 547 I 
' I---I- 


CAN NOT BLOCK READ XL AT E 2 
VIA MINUS Y DATA REG NOT E 
AND NOT 0 AND NOT NUMERIC 

B4C08A AND B4C14C TO B4C23H 

••RESERVED** 


I 32.20.64.1 I B4C12 
I • I 

! ' I 

I 


I 32 
-I— 
I ■ 


20*62.1 

I 


I 
I 
X 
I 

I 
I 

' ' X 

B4C23 1 B4C08 » B4C14 I 

.'■■■I 


♦•RESERVED** 

i 

I 

i 

♦♦RESERVED** 

i 

• r -■ --t 

i 

♦♦RESERVED** 

i - 

• i • • . 

" i 

B1G29P STUCK AT MINUS Y 

I 32.31.10.1 I B1G29 

i 


**RES ERVED** 


B3E27E TO B4A11B 



B4C23L TO B4A11C 

**RE$ERVED** 


I7MAR66 

125643 


I I 

‘I—--1 

I 32.20.64,1 I 
I 32.20.34.1 I 

I 32.20.64.1 I 
I 32.20.62.1 I 

-I~ -- 

I • 


B4A11 
B3E27= 


B4A11 

B4C23 


I- 

I 

-^~I- 


I 

-I 
I 
I 
-I 
I 
I 

I 
-I 


ID 

PAGE 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 

2821 - 2540 READER PUNCH SCAN 


I PRESERVED** 


I CAN NOT GET READ XLATE 1 VIA 
I MINUS Y DATA REG NOT 8 AND 
I NOT1 AND NOT 2C365C6&7 AND 


NOT 2 ZONES 


559 


I B3E23E TO B4A12D 
I 


560 I B4A08A TO B4A12Q 


561 


I B4C23L TO B4A12P 
I 


562 I PRESERVED** 

563 I CAN NOT GET READ XLATE 4 VIA 
I MINUS Y DATA REG NOT 0 AND 

I T AND E AND NOT 1 AND NOT 
I 2£3S4£566£7 
—— 1 -—- 

564 I PRESERVED** 

565 I PRESERVED** 

-I—-—-« 

I PRESERVED** 

-I- 

I **RESERVED*« 

-I—-———i 

568 I B4B12C STUCK AT MINUS Y 

569 I PRESERVED** 

570 I ALWAYS GET READ XLATE 6 
I 

571 I **RESERVED»* 

572 I ALWAYS GET READ XLATE 7 
■I 


-I—-——-—*—— 

I **RESERVED** 

-I- 

I B3E27A TO B4C10A 
I OR 

I B3E27L TO B4C10H 
I 

-I- 

I B3E27Q TO B4C10R 
I OR 

I B3E27E TO B4C10G 
-I* 

I PRESERVED** 

-I- 

I PRESERVED** 

-I- 

I CAN NOT GET READ XLATE 0 VIA I 
I MINUS Y DATA REG 8 AND NOT 9 I 
I AND NOT 1 AND NOT 2£3£4£5E6£7 I 
*1 

I B4C23L TO B4C10B 

I 

-I- 

I PRESERVED** 

-I—— 



P/N 840257 1 
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PRESERVED** I 

I 

—i 

[• PRESERVED** I 

I 

I 

--1 
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DATE 

EC 


15JUL65 

124265 


17MAR66 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 
2821 - 2540 READER PUNCH. SCAN 


I 612 I PRESERVED*® 

I 613 1 ♦♦RESERVED** 
I —I- 


DATE 
EC ' 


I '614 l ♦♦RESERVED** 


-I- 


I 615 I ♦♦RESERVED®* 

I i 

I 616 I NEVER GET INVALID CARD .'CODE ' 
I ' " I 

I 61? 1 

1 618 I 
I- 


♦♦RESERVED** 

♦'♦RESERVED*® 


I'6.19;, I * ♦RESERVED'**’' 


-I- 


I* 

I 620 I B4812C- AND- 84B07R TO ; BIE10P 


I 

1- 
I 621 

I 
1 

I 

1“ 




♦♦RESERVED** 


622-I ALWAYS GET READ XLATE 4 
I 

T 


I 623 I '♦♦RESERVED** 

I 624 I ALWAYS GST READ MLATE 0 

I I 

I • I 

I-1 

I 625 I ®»RES£RV£0« 


I -626 I ALWAYS GET READ XLATE I 
I I 


I I 

I 62? I ♦ ♦RESERVED*®' 
I THRUI 
I 649 I 


r 

—-i* 

i 

■—i- 

i 

—I- 
i 

—i- 
i i 
i i 
—-i- 
i 

—u 

i 

—i- 


i 

—i 
i 

-—i 

i 


BIH3I 

B1C2? 


,1 I 
■ 1 I 

“I* 

I 

•4-1- 
1 I 
1 I 
I 

—I* 

I 

■—I- 
1 I 
1 I 
I 

— I- 

I 

— 1 - 
1 I 
1 1 

I 

— I- 

.. I 

I 

.1 


81E10 

B4B07*B4B12 


B1F10 
B4013*B4A12 * 
84€16»B4B19 


B1DG9 

8404*84810# 

B4C11 


BXD09 

84C14siB4C08i 

B4B11 


I 

I 

I 

I 

I 

1 

I 

1 

“I 

I 

——I 

1 

B4A13 9 1 

I 

I 

I 

B4CiO,I 

1 

I 

! 

84All * I 
I 

•—-—-I 
■ I 

'■ I 

I 


4® 3® 6 


ERROR MESSAGES COMMON ONLY TO ROUTINE 05 
TRANSLATOR FLT— 


-PUNCH 


DESCRIPTION 


I . I 
I ERRORI 
I NO® I 

I 650 I DATA RECORDS ARE MISSING OR 

I I ARE OUT OF SEQUENCE®! THERE 

I I IS A TOTAL OF 135 DATA RECORDS I 

I X SEQUENCE NUMBERED 031 THRU I 

I I 165® I 


I 651 I CAN NOT ISOLATE PUNCH 

TRANSLATOR FAILURE® SET 
SECTION SENSE SWITCH 2 TO 1 
TO OBTAIN PROGRAM LOG OUT® 


I 

I 

I 


I I I 

I. ALD PAGE I CIRCUITS I 

* I I 

I I . ~~I 

I I I 

I I 

I 1 

I I 

i™-——--i 

i x I 

I I I 

I I I 

X I I 


I 652 I NEVER GET CHAN REG 0 AT PUNCH I 32®11.12®1 I B1D09#BTD1D*B1D11,I 

I I TRANSLATOR CIRCUITS I 1 B1.A11 I 

I 653 I ALWAYS GET CHAN REG 0 AT PUNCH! 32.11*12*1 I B1DG9*B1D10*81011,1 

I I TRANSLATOR CIRCUITS I X 81A11 I 
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15JUL65 

124265 


. 17MAR66 
125643 


P/M 840257 
PAGE 18 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 

2821 - 2540 READER PUNCH SCAN 


I 654 I NEVER GET CHAN REG 1 AT PUNCH I 

I I TRANSLATOR CIRCUITS I 

X-1-—-- 4—I- 

I 655 I ALWAYS GET CHAN REG 1 AT PUNCHI 

I I TRANSLATOR CIRCUITS X 


ID P804~* 

PAGE 18 '? 



858 


NEVER GET CHAN REG 2 AT PUNCH I 
TRANSLATOR.CIRCUITS- I 

-- I- 

ALWAYS GET CHAN REG 2 AT PUNCHI 
TRANSLATOR CIRCUITS I 

NEVER GET CHAN REG 3 AT PUNCH X 
TRANSLATOR CIRCUITS I 

ALWAYS GET CHAN REG 3 AT PUNCHI 
TRANSLATOR CIRCUITS I 

------* I- 

NEVER GET CHAN REG 4 AT PUNCH I 
TRANSLAIOR CIRCUIT$ X 

--.!«. 

ALWAYS GET CHAN REG 4 AT PUNCHI 
TRANSLATOR CIRCUITS I 

NEVER GET CHAN REG 5 AT PUNCH X 
TRANSLATOR CIRCUITS I 


I 663 X ALWAYS GET CHAN REG 5 
I I TRANSLATOR CIRCUITS 


AT PUNCHI 
X 


NEVER GET CHAN REG 6 AT PUNCH I 
TRANSLATOR CIRCUITS X 

ALWAYS GET CHAN REG 6 AT PUNCHI 
TRANSLATOR CIRCUITS ; ; I 

NEVER GET CHAN REG 7 AT PUNCH I 
TRANSLATOR CIRCUITS I 

---------1“ 

ALWAYS GET CHAN REG 7 AT PUNCHI 32®11. 
TRANSLATOR CIRCUITS I 

NEVER GET MINUS V BUFFER ENTRY! 32*20® 

♦♦RESERVED** "V' ; I 

NEVER GET PLUS Y CHAN REG 0 I 32*11. 
AT PUNCH TRANSLATOR CIRCUITS I 


I 671 1 ALWAYS GET PLUS Y CHAN REG 0 
I I AT PUNCH TRANSLATOR CIRCUITS 

I-— i —----- 

I 672 I NEVER GET MINUS Y CHAN REG 0 
1 I AT PUNCH TRANSLATOR CIRCUITS 

I -- 1 — - *-— —--—■— 

I 673 I ALWAYS GET MINUS Y CHAN REG 0 
I I AT PUNCH TRANSLATOR CIRCUITS 

I- l -—--M- 

I 674 I NEVER GET PLUS Y CHAN REG 1 
I I AT PUNCH TRANSLATOR CIRCUITS 

I 675 I ALWAYS GET PLUS Y CHAN REG 1 
AT PUNCH TRANSLATOR CIRCUITS 


32.11. 


32.11. 


I 


32.11. 


NEVER GET MINUS Y CHAN REG 1 
AT PUNCH TRANSLATOR CIRCUITS 

ALWAYS GET MINUS Y CHAN REG 1 


BlD09fB1D10 sBlDll»I 
B1A11 I 

BlD09tBlDlOtBlDll* I 
B1A11 I 

--1 - 

B1 £ 10* 8IE12 * 81H10 *I 
BXF09*B1D12 I. 

B1E10* B1E12 * B1H10*l 
B1F09*B1D12 I 

r— - ; - 4-1 ■ 

81E10»B1E12»B1H10»I 
BXF09# B1D12 I 

—*—— -- —*1 

61£lG»Biei2*81H10*X 
81FG9#B1QX2 1 

8XF10*B1E12 *B1F09 *T 
81H1Q*B1D12 I 

B1F10» B1E12 » B1F09 *I 
B1H10 # BID12 I 

--,----— 

BIFlOfBIGlO »B1F09 * I 
BlH10»BiFll I 

61F10,B1G10»B1F09»I 
BIHlOtBIFll I 

—--^ 

81G111 & 1G101B1E 08»I 
BIHlOtBlFll ■ I 

BlGll*B1G10*BXEG8* I• 
81H10*BXF11 I 

B1G111B1G101B1H10* I 
B1F11 I 

81G11*81G1Q#81HXQ* I 
81F11 I 

-------—I 

B4B22 *B4A2l§ &4D22 I 

-—--———I < 

I 

I 
I 
“I 
I 
I 
-I 
I 

' 1 

I 
I 

I 

.... T 

I 

I 

-~~I 
’ I 

. ■ I 

“I 
I 


B1D10#81DO9 


B1D10*B1DG9 

B1D11*31009 


BID11*BlD09 
8X0X0*0X009 

BIDlOfB1D09 

8ID11*8X009 
B1P11*B1D09 
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2821 - 2540 READER PUNCH SCAN 


I AT PUNCH TRANSLATOR CIRCUITS I 

I NEVER GET PLUS Y CHAN REG 2 I 
I AT PUNCH TRANSLATOR CIRCUITS I 

-I-*-*-I- 

I ALWAYS GET PLUS Y CHAN REG 2 I 
I AT PUNCH TRANSLATOR CIRCUITS I 

I NEVER GET MINUS Y CHAN REG 2‘ I 
I AT PUNCH TRANSLATOR CIRCUITS I 

I ALWAYS GET MINUS Y CHAN REG 2 I 
I AT PUNCH TRANSLATOR CIRCUITS I 

I NEVER GET PLUS Y CHAN REG 3 I 
I AT PUNCH TRANSLATOR CIRCUITS I 

-I—--—---I- 

I ALWAYS GET PLUS Y CHAN REG 3 I 
I AT PUNCH TRANSLATOR CIRCUITS 1 

-I —-----—- 1 - 

I NEVER GET MINUS Y CHAN REG 3 I 
I AT PUNCH TRANSLATOR CIRCUITS I 

I ALWAYS GET MINUS Y CHAN REG 3 I 
I AT PUNCH TRANSLATOR CIRCUITS I 

-I--*-—---—— 1 “ 

I NEVER GET PLUS Y CHAN REG 4 I 
1 AT PUNCH TRANSLATOR CIRCUITS I 

-1 ---—*---- 1 - 

I ALWAYS GET PLUS Y CHAN REG 4 I 
I AT PUNCH TRANSLATOR CIRCUITS I 

-1 ----- 1 - 

I NEVER GET MINUS Y CHAN REG 4 I 
I AT PUNCH TRANSLATOR CIRCUITS I 

-I--------I- 

I ALWAYS GET MINUS Y CHAN REG 4 I 
I AT PUNCH TRANSLATOR CIRCUITS I 

I NEVER GET PLUS Y CHAN REG 5 I 
I AT PUNCH TRANSLATOR CIRCUITS I 

-I--———-—-- I- 

I ALWAYS GET PLUS Y CHAN REG 5 I 
I AT PUNCH TRANSLATOR CIRCUITS I 

-I-—--*-I- 

I NEVER GET MINUS Y CHAN REG 5 I 
I AT PUNCH TRANSLATOR CIRCUITS I 

~I-*---*- 1 - 

I ALWAYS GET MINUS Y CHAN REG 5 I 
I AT PUNCH TRANSLATOR CIRCUITS I 

-I---—------I- 

I NEVER GET PLUS Y CHAN REG 6 I 
I AT PUNCH TRANSLATOR CIRCUITS I 

-I-—---1- 

I ALWAYS GET PLUS Y CHAN REG 6 I 
I AT PUNCH TRANSLATOR CIRCUITS I 

I NEVER GET MINUS Y CHAN REG 6 I 
I AT PUNCH TRANSLATOR CIRCUITS I 

I ALWAYS GET MINUS Y CHAN REG 6 I 
I AT PUNCH TRANSLATOR CIRCUITS I 

I NEVER GET PLUS Y CHAN REG 7 I 
I AT PUNCH TRANSLATOR CIRCUITS I 

~I-------—-— I- 

I ALWAYS GET PLUS Y CHAN REG 7 I 
I AT PUNCH TRANSLATOR CIRCUITS I 
-I—-r-—---- I- 


32*11.13.1 


32.11.13.1 


I B1E12»B1E10 
I 

I-- 

I B1E12«BIEID 
I 

•I~-•-— 

I B1F09*B1H10» 
I 

I B1F09»B1H10, 

I 

•I—■---— 

I B1E12 »B1EIG 
I 

I--- 

I BiE12fBIE10 
I 

I 81F09fB1H10# 
I 

I BlF09fBIHlOf 
I 

*!•-?-*— 

I 81E12sBIFlO 
I 

I B1E12»BIFIG 


32.11.13.1 


32.11.13.1 


32.11.13.1 


32.11.13.1 


32.11*13.1 


32.11.13.1 


32.11.14.1 


32.11.14.1 


B1E10 I 

1 

BIEIO I 

I 

I 

-—j 

I 

I 

~-*“1 

BIEIO I 
I 

BIEIO I 
I 

—- 1 

I 

I 

—-- *1 

I 

I 

B1F10 I 
I 

B1F10 I 
I 

I 

I 

I 

I 

B1F10 I 
I 

—-- 1 

B1F10 I 
I 

I 

I 

I 

I 


32.11.14®1 


32.11.14.1 


32.11.14.1 


32.11.14.1 


32.11.14.1 


32.11.14.1 


I 81FQ9jBlHlQ* 
I 

I BlF09»BlH10f 
I 

•I—- 

I B1G10*B1F10 
I 

I BIGlOfB1F10 
I 

‘I —--- 

I B1F09»B1H10 1 
I 

I~-—--- 

I BlF09fB1H10*! 
I 

■I—---- 

I B1G11*B1G10 
I * 

I B1G11 9 BIGIO 
I 

I B1E08»B1H10«I 
I 

I——-v- 

I BIEO 89 BIHIO »i 
I 

I BIGlOtBIGl1 
I 

I BIGlOfB1G11 
I 

1 --—--- 


32.11.15.1 


32.11.15.1 


32.11.15.1 


32.14.15.1 


B1G11 I 
I 

-- 1 

B1G11 I 
I 

—.- 1 

l 

1 

l 

I 


32.11.15.1 


32.11.15.1 


DATE 

EC 
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B1D11P TO B4A13P 


B1D11A TO B4A13Q 


.70.1 I 

.12.1 I 

.70.1 I 

•12.1 I 


B4A13R STUCK AT MINUS V. 


B4A13R STOCK AT ' PLUS ¥ 

B1E12E TO 84C08Q 

OR 

B4A13R TO B4B15R 
B4C08B STUCK AT MINUS. ¥ 
B1G10L TO B4816L 


BIGl'OA TO B4B16H 


B4B16F STUCK AT MINUS Y ' 
B4B16F STUCK AT PIUS Y 
B1G10A TO B4B16P 


B1G10E TO B4B16Q 


B4816R STUCK AT MINUS Y 


B4816R STUCK AT PLUS Y ' 


B1E12A T.0.B4A11G 


81E12E TO 84A11H 


NEVER GET PUNCH TRANSLATE II 


CAN NOT BLOCK PUNCH TRANSLATE 
11 VIA PLUS Y CHAN REG 2 AND 3 


B1D10A TO 84C22D 


B1D10E TO B4C22P 


ALWAYS GET PUNCH TRANSLATE 9 


U70.1 I 

—-1* 

i.TO.l I 

.70.1 1 
.13.1 I 
I 

.70.1 I 

.71.1 I 
.15.1 I 

.71.1 I 
.14.1 I 
—“I- 
.71.1 I 

.71.1 .1 

.71.1 I 
.14.1 I 

.71.1 I 
.15.1 I 

.71.1 I 

—I. 

.71.1 I 

.73.1 I 
.13.1 I 

.73® 1 I 
.13.1 I 
— I* 

.31.1 I 
.73.1 I 
I 

-— 

.73.1 I 
1 

.77.1 I 

.12.1 I 

~-»I~ 

.77.1 I 

.12.1 I 

.34.1 I 
.77.1 I 


B4C08*B4A13*84815 
B1EI2 


B3E18 

B4A18*B4C17 ?84B17 $ 
B4A11 


B3E20 

84022*84021»B4A21 


CAN NOT GET PUNCH TRANSLATE 9 
VIA MINUS Y NOT CHAN REG 0 
AND 1 


.77.1 I 
I 
I 


B4A17P TO B4C15R 


B4C15A STUCK AT MINUS Y 
B4B14L TO B4C15P 


.70.1 I 
.70.1 I 
.70.1 I 


B4C15♦84A17 


B4C15C STUCK AT MINUS Y 


BIG10A TO B4B14H 


.20.70.1 

.11.14.1 


I B4C15 

I B4B14 
I B1G10 


B1E08Q TO B4B14Q 


B1G10L TO B4B14R 


84B14P STUCK AT MINUS Y 


B4814P STUCK AT PLUS Y 


B1F09A TO 84A13D 


B1E12E TO. B4A13E 


B4A13C STUCK AT MINUS Y 
B4A13C STUCK AT PLUS Y 


B4A13F TO 84A23Q 


B4A23P STUCK AT MINUS Y 


B4A13R TO B4A23R 


B4A23D STUCK AT MINUS Y 


♦PRESERVED** 


B4B15A STUCK AT MINUS Y 


B1F09A TO B4816A 


B1D10A TO B4B168 


B4B16G STUCK AT MINUS Y 
OR 

B4816G TO B4B15P 


.20*70.1 

•11.15.1 


.20.70.1 

.11.15.1 


.20.70.1 

.11*13.1 


.20.70.1 

.11.13.1 


I 84814 
I B1E08 

I B4B14 
I B1G10 

I B4B14 

I B4B14 
■I—- 
1 B4A13 
! 81F09 

1 B4A13 
I B1E12 

I B4A13 
■I-—- 
I B4A13 

I—-- 

I B4A23» 
•1—— 
I 84A23 
•I— 
I 84A23* 


' I 

’ I 
I 

I 

I 

I 

I 

“—I 

I 

'■ I 

I 

I 

3 

.■ 1 

I 

. I 

. . I 

. ' I 

I ■ 

■ • I. 


I B4A23 


.20.71.1 

.11.13.1 


1 B4B15 

I B4B16 
I B1F09 


.20.71.1 

. 11 . 12.1 


84B16G STUCK AT PLUS Y 
OR 

B4B15C STUCK AT MINUS Y 
B1D1GA TO B4816D 


B1F09L TO B4B16E 


.20.71.1 

.11.12.1 


.20.71.1 

.11.14.1 


B4B16C STUCK AT MINUS Y 
OR 

B4B16C TO B4B23R 

B4B16C STUCK AT PLUS Y 
OR 

84B23A STUCK AT MINUS Y 


1 B4B16 
I B1D10 

I B4B16 * 

I 

I 

I-- 

I B4B16* 
I 

I ' ; ■ 

I B4B16 
I 81DIO 

I B4B16 
I B1F 09 

I B4B16 9 
I 

I r / i • 

I 84816* 
I . 

I 


B4C15 *B4B14 


B4B16R TO B4C08E 
OR 


.20.71.1 


1 B4B22t 
I 


• I 

' J " I 

5 I 

I 
I 

> I 

I 
I 

—-—I - 

I 

• I 

, I 

I 

I I 

I 
I 

V -■ I 
■ I 
I 

1*84816 I 

' ■=.: i-;. 
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I B1F09Q TO B4C20G 
I 


DATE 

EC 


I B1G10Q TO B4C20F 
I 


B1E080 TO 84C20E 


NEVER GET PUNCH TRANSLATE 7 


I ALWAYS GET PUNCH TRANSLATE 7 
I 

-—* 

I 81E12Q TO 84A19R 

I 


I B4B14L TO 84A19H 
I OR 

I 84A23P TO 84B21R 


I B4A19P STUCK AT MINUS Y 

I NEVER GET PUNCH TRANSLATE 
! 

- | 

I 84B14P TO B4C15G 
- !«—^ 

I B4C15F STUCK AT MINUS Y 

- I 

I B4A13C TO B4B22H 

- I 

I B4B22L STUCK AT PLUS Y 


1 B4A13C TO B4A23B • ' 

-I — ——- 

I 04A23A STUCK AT MINUS Y 


I 

I 

-I- 

I 

I 

— I- 
I 
I 

‘-I- 

I 

I 

— 1 - 
I 
I 

‘-I- 

I 

I 

*-1- 

1 

I 

I 

— I 
I 

— I 

I 

1 

— I 
- I 

— I 
I 

I 

— I 
I 

— I 
I 

— I 
I 


,20.76,1 
.11.14.1 


I 84C20 
I B1F09 




20.76.1 

11.15.1 


I B4C20 
I B1G10 


20.76.1 

11.15.1 


I B4C20 
I B1E08 


— I- 


,20.34.1 

20.76.1 


I 83E20 
I B4A21*B4C20 


,20*34.1 

,20.76.1 


20.78.1 

11.14.1 


20.78.1 

20.70.1 


32.20.76®1 


I B3E20 
I B4A211B4C20 

-I-—-— 

I B4A19 

I B1E12 

“I -—-* 

I B4AI9, 

I B4B14, 

I 

I B4A19 


B4B2I 

B4A23 




20.34.1 

20.76.1 

20.70.1 
20.70#1 
20.70.1 
20.70.1 
20.70.1 
20.70.1 


1 B3E20 
I 84821*84A19 


-1-1- 


I B4C15 &B4814 
I B4C15 
I B4B22»B4A13 

■ I*.--——— 


I B4B22 

I———- 

I B4A23 f 

I B4A23 


04A13 


I 

I 

I 

I 

--I 

I 

I 

I 

I 

—— 1 

■ I 

I 

I 

I 

I' 

I 

I 

-—-I 

I 

——I 

I 

I 

I 

I 

I 

——I 

. I 

I 

I 
I 

I 

I 
I 
I 

I 


842 


■.•♦RESERVED**' 

I 

I 

••RESERVED** ' 

. • i . 

I 

♦•RESERVED** 

i 

I 

••RESERVED** 

I 

I 

••RESERVED** - 

I 

I 

♦•RESERVED** ' 

I 

1 

1 

! 

I 

' \ 


I 84C15A TO 84A16E 
I 


I B4A23P TO 84A16F 
I 


I B1E12E TO 84A16L 
I 



I ■♦•RESERVED**- 
I- 


,20.72.1 

,20.70.1 

,20.72.1 

.20.70.1 

,20.72.1 

.11.13.1 


1 CAN NOT GET PUNCH TRANSLATE 121 32.20.72.1 
I VIA MINUS Y CHAN REG 1 NOT 0 I 
I AND NOT 40R50R60R7 AND NOT 31 


I B4A23P TO 844180 
I 


20.73.1 

20.70.1 


I B4A16 
I B4C15 

I- 

I B4A16 
I B4A23 

I B4A16 
I B1E12 

I-— 

I 

I---. 

I B4A16 

I 

I 

I B4A18 
I B4A23 


I 
I 
I 
I 
I 
I 
I 
I 

I 

I 

I 

I 

I 

I 

I 

I 

—•—I 

I 

I 


15JUL65 
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17MAR66 

125643 



850 


B4C15A TO B4A18P 


I 851 I B1E12A TO B4A18D 


I I 

I 852 I 

I 853 I 
I I 

1 ■ I 

I 854 I 
I I 

I 855 I 
I I 

I I 

I"——I- 
I 856 I 
I . I 
I I 

I —I- 
I 857 I 

I 858 X 
I I 

I I 

I—-1- 


•♦RESERVED** 


CAN NOT BLOCK PUNCH TRANSLATE 
11 VIA MINUS Y CHAN REG 1 NOT 
0 AND NOT 40R50R60R7 AND NOT 

B4C15C TO 84A18E 


B1E12E TO 84A18F 
OR 

S1F09A TO B4A11F 


84A23D TO B4A18L 
OR 

B1G10Q TO B4817H 


♦♦RESERVED** 


CAN NOT BLOCK PUNCH TRANSLATE 
11 VIA MINUS Y CHAN REG NOT 5 
0R6 0R7 AND NOT 3 AND 0.1 


B4A23D TO B4C17A 


I 868 I 

I 869 I 
I I 

I I 

I—-1 

I 870 I 
I 

871 I 
I 

*1 


B4C23A TO B4C17B 
OR 

B1F09L TO B4C17R 
BXE12Q TO B4C17D 


B1F09A TO B4C17C 

B4C17G STUCK AT MINUS Y 
♦♦RESERVED** 

♦♦RESERVED** 

B1E12A TO B4B18B 

B1FG9E TO B4B18A 

♦♦RESERVED** 

CAN NOf BLOCK PUNCH TRANSLATE 
0 VIA MINUS Y CHAN REG 50R6 
AND NOT 2 AND.3 


B4A23P TO B4B18P 


I 

I 

I 

I 

I~ 


B4C15A TO B4818D 

I 872 I B1E12E TO B4B18Q 


32.20.73.1 

32.20.70.1 

32.20.73.1 

32.11.13.1 


32.20.73.1 


32*20.73.1 

32.20.70.1 


32.20.73.1 

32.11.13.1 


32.20.73.1 

32.20.70.1 

32.11.15.1 


32.20.73.1 


-I --—--- 

I B4A18 
I B4C15 

I-r- 

I B4A18 
I B1E12 

I-—--- 

I 

I B4A18 

I 

I 

■I-- 

I B4A18 
I B4C15 
I- 

I B4A18,B4A11 
I B1E12»B1F09 
I 

I B4A18fB4817 
I B4A23 
I B1G10 

I 

I B4A18 

1 

I 


32.20.73.1 

32.20.70.1 


I B4C17 
I B4A23 


32.20.73.1 

32.20.71.1 

32.11.14.1 

32.20.73.1 

32.11.14.1 

32.20.73.1 

32.11.13.1 

32.20.73.1 


32.20.74.1 

32.11.13*1 


I B4C17 
I B4C23 
I B1F09 

I B4C17 
I B1E12 


32.20.74.1 

32.11.13.1 


32.20.74.1 


I B4C17 
I B1F09 

■I-'- - 

I B4C17 

.1 

I—— 
I 

I 84818 
I B1E12 

I——- 

I B4B18 
I B1F09 

-I-■- 

I 

I B4B18 
I 

I 

,1--- 


32.20.74.1 

32.20.70.1 


32.20.74.1 

32.20.70.1 


32.20.74.1 


I B4B18 
I 84A23 

I B4B18 
I 84C15 
■I--*— 

I 84B18 
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I 874 I CAN NOT BLOCK PUNCH TRANSLATE 
I I 0 VIA MINUS Y CHAN REG 1 NOT 

I I 0 AND NOT 40R50R60R7 AND NOT 


I 875 I 

I- -|. 

I 876 I 

I—-1- 

I 877 I 
I-1- 

I 878 I 

I 879 I 
I 880 I 
I 881 I 

I 882 I 

I 883 I 

I 884 I 

I 885 I 

I 886 I 

I-—I- 

I 887 I 

I 888 I 


♦♦RESERVED** 


♦♦RESERVED®* 

84C19Q STUCK AT MINUS Y 
♦♦RESERVED** 
♦♦RESERVED®* 
♦♦RESERVED** 
♦♦RESERVED** 


♦♦RESERVED** 


♦♦RESERVED*® 


♦♦RESERVED** w 


♦♦RESERVED** 


I 889 I 


♦♦RESERVED** 
♦♦RESERVED** 
♦♦RESERVED** 
♦♦RESERVED** 


I- 

I 890 I B1EI2Q TO B4B21B 


♦♦RESERVED** 


CAN NOT BLOCK PUNCH TRANSLATE 
8 VIA MINUS Y CHAN REG NOT 4 
AND 1 NOT 0 


81E12Q TO B4C22R 


B1D10A TO B4C22A 


B4C23A TO B4C22B 


♦♦RESERVED** 

CAN NOT GET PUNCH TRANSLATE 
9 VIA MINUS Y CHAN REG NOT 4 
AND NOT 0 AND 5 OR 6 

61P09L TO B4C22G 


B4C23A TO B4C22B 


ooooooo#o©o©oo 


... I 
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I B4A23D TO B4C22H 
I 


I **R£S ERV ED*® I 

- 1 — -—-*-------- 1 

I CAN NOT GET PUNCH TRANSLATE I 
I 9 VIA MINUS Y CHAN REG 4 AND I 
I 50R6 AND 0.1 I 


— I- 


I B4B14L TO B4A16G 
I 


904 


I B4B23A TO *B4A16P 

I 


I B1F09E TO B4A16D 
I 

-I ——---—~ ——- 

I **RESERVED** I 

-I—-*-*--——---— I 

I CAN NOT BLOCK PUNCH TRANSLATE I 
I 12 VIA MINUS Y CHAN REG 50R6 I 
I 0R7 AND 4N0T0 AND 3 ! 


908 


B4A13F TO 84A16R 
OR 

B1E.12Q TO B4A16B 
OR 

B4B14P TO B4CI6E 


I B4A23A TO B4A16B 
I 

-1 ------ 

I **RES ERV ED** I 

-1 ---• -- -— I • 

I CAN NOT BLOCK PUNCH TRANSLATE I 

I 12 VIA MINUS Y CHAN REG NOT 1 I 

I AND 0 AND 2 NOT 3 I 

I PRESERVED** I 


-r-r I —— ~ 

3 I B4A23A TO B4A16B 
I OR 

I B4B15A AND B4C08B TO B4C16B 

4 I ®*RE$ ERV ED*® 

—* I-----—— -——— 

5 I CAN NOT BLOCK PUNCH TRANSLATE I 

I 12 VIA MINUS Y CHAN REG NOT 4 I 
I AND 2 NOT 3 I 


-X- 


B1E12G TO B4C16A 
OR 

B4B22Q TO B4C16L 


♦♦RESERVED*® 


B4C16G STUCK AT MINUS Y 


♦♦RESERVED*® 


B4A23A TO B4C16D 


♦♦RESERVED** 


B4C16C STUCK AT MINUS Y 
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^♦RESERVED*® 

I 

I 


B4815A AND B4C08B TO S4C16H 

I 

I 

32*20.72*1 I 
32.20.70.1 I 

I 

B4C16- 

B4815®B4C0® 

••RESERVED** ' 

I 

— 1- 
I 


B4C16F STUCK AT MINUS Y 

32*20*72* 1 I. 

___... *. 

B4C16 

■»«KE$ER¥ED« 

I 

— I- 

I 



84816F TO B4A18A 


81FQ9L 

TO 

B4A18R 


OR 




B4B22Q 

TO 

B4B17R 


B4B15C 

TO 

B4AX8B 



♦•RESERVED** 

CAN NOT BLOCK PUNCH TRANSLATE 
il VIA MINUS Y CHAN REG 50R? 
AMO 4 AND 2 NOT 0 


B4B15C TO B4A18B 


B1D10E TO B4A18H 


B4A17P TO B4A18G 


••RESERVED** 


-I* 


1 93? I CAN NOT BLOCK PUNCH TRANSLATE 
I I 11 VIA MINOS Y CHAN REG.'2 NOT 

I 1 0 AMD' NOT I AMD 40R50R60R7 

I —-1 

I 938 I B4B15C TO 848178 


BIF09L TO B4B17A 


B1F09E TO B4BI7C 


B1E0BQ TO B4817D 


B4B17G STUCK AT MINUS Y 


•♦RESERVED** 


B1D10A TO B4B17F 

••RESERVED** 

B1E12E TO B4B17L 


••RESERVED** 


I 32, 
I 32* 

I 32< 
I 32* 
I 32* 

I 32* 
I 32* 

I 

I 32* 
I 

I 

I 32* 
I 32* 

I 32* 
I 32* 

I 32* 
r 32 - « 
•I- 
I 

I 32 
I 
I 
I* 

I 32 
I 32 

I 32 

I 32 

I 32 
I 32 

I 32, 
I 32< 

I 32* 

I 

I 32* 
I 32, 

I 

I 32, 
I .32* 

I ' 

-I- 


20.73.1 I 
20.71®1 I 

20*73®l I 
11.14*1 I 
20*71*1 I 

20.73.1 I 

20.71.1 I 

• I 

20.73.1 I 
I 
I 

—--I- 

20® 73*1 I 
20.71«1 I 

20®73.1 I 

11.12.1 I 

20.73*1 I 

20.70.1 I 

I- 
I 

20* 73®1 I 
I 

■ l 

I- 

20,, 73.1 I 

20.71.1 I 

20.73*1 I 

11.14.1 I 

20.73.1 I 

11.13.1 I 

,20.73© l I 
11*15.1 I 


B4A18 

B4816 


B4A18#B481? 

B1F09 

B4822 


64A18 

B4BI5 


I 
I 
I 
I 
I 

I ■ 
I 
I 
I 
1 
1 
I 
1 

-—I 
I 
I 
I 

I 

I 

I 


B4A18 


94A18 

B4B15 


B4A18 
31 DIO 

B4A18 

B4A17 


84AI8 


B4817 

B4815 


B4B17 

81FG9 


84817 

81F09 


84B1? 

81E08 


-I-- 


,20.73* 1 I 

I 

20.73*1 I 

11.12.1 I 

— I- 

I 

20.73.1 I 

11.13.1 X 

I 

‘—I- 


B4B17 


B4BI7 

B1D10 


B4B17 

B1E12 


I 

I 

I 

— I 

I 

1 

— I 
1 
I 

—I 

I 

I 

-I 

I 

-I 

1 

I 

I 

-1 

I 

1 

“I 

I 

I 

»I 

I 

I 

-I' 

I 

I 

-I 

I 

“I 

I 

-I 

I 

I 

-I 

1 

“I 
I ■ 

I 

-I 

I 

“I 


948 


949 


B4B17P STUCK AT MINUS Y 

f 

i' 

32.20.73.1 I B4B17 

♦♦RESERVED** 

I 

I 

♦.♦RESERVED** 

Ir 

i 

— i- 


I B1D1XP TO B4C17F 
I 

I 8IGIQQ TO B4C17H 
I 

“I 

1 B4B22Q TO B4C17Q 

I 

-I 

I B1E12E TO 84C17L 

I 

“1 
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P/N 

PAGE 


11082 I 


•RESERVED** 
♦•RESERVED** 
••RESERVED** 
••RESERVED** 

B4A16C STUCK AT MINUS Y 
••RESERVED** 
••RESERVED** 
••RESERVED** 
••RESERVED** 
••RESERVED** 

B4A18C STUCK AT MINUS Y 



32«20»73«1 I B4A18 


•♦RESERVED** 

———--— 

I ' 

i i 

**RESERVED** 

I 

i ] 



11104 I **RES ERV ED** 

11105 I B4C19R STUCK AT MINUS Y 

11106 I **RES ERV ED** 

11107 I **RESERVED** 

11108 I **RES ERVED** 

11109 I **RESERVED** 

11110 I **RESERVED** 

I —--1 —---*- 


Hill I B4B21C STUCK AT MINUS Y 

11112 I **RESERVED** 

11113 I **RESERVED*« 

11114 I **RESERVED** 

11115 I **RESERVED** 

11116 I B4C21P STUCK AT MINUS Y 

11117 I PRESERVED** 


11118 I **RESERVED** 

I — I —— —=----— 

11119 I **RESERVED«* 

I-- | -■-— * 

11120 I **R£SERVED** 

11121 I **RESERVED** 

I--1 —- 

11122 I B4C22C STUCK AT MINUS Y 

11123 I **RESERVED** 

11124 I PRESERVED** 

11125 I **RES ERV ED** 

11126 I **RES ERV ED** 


11127 I ALWAYS GET PUNCH TRANSLATE 0 

I I 

11128 I »*RESERVED** 

I——I-- : -—---— 

11129 I **RESERVED** 

I--—I~—-- 

11130 I PRESERVED** 

I-i----->-~- 

11131 I **RESERV ED** 

I- 1 --- —---- 


11132 I **RESERVED** 

I- 1 -—~-- 

11133 I PRESERVED** 

11134 I ALWAYS GET PUNCH TRANSLATE 2 

I I 

11135 I **RESERVED** 

11136 I **RESERVED** 



DATE 

EC 


15JUL65 

124265 


17MAR66 

125643 
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P/N 

PAGE 


DATE 

EC 


••RESERVED#* 

ALWAYS GET PUNCH TRANSLATE 8 

PRESERVED** 

••RESERVED** 

••RESERVED*# 

NEVER GET PUNCH TRANSLATE 9 

••RESERVED** 

••RESERVED** 

ALWAYS GET'PUNCH TRANSLATE 12 

••RESERVED#® 

••RESERVED*#. 

••RESERVED** 

ALWAYS GET PUNCH TRANSLATE 41 



I . 
4 

B3E18 I 

B4AX1»B4A18 9 84B1? ,1 
B4C1? I 


4*4 LOG OUT OF ACCUMULATED DATA BY ROUTINE 

4®4*i ROUTINE 01 —CHANNEL REG FLT— 

LISTED BELOW IS A SAMPLE OF THE LOG OUT INFORMATION® ■ THE ' 
DATA IS PRESENTED IN -HEX FORM9 4 BITS PER 'CHARACTER® : IMIS 
SAMPLE REPRESENTS THE DATA ACCUMULATED WITH NO ERRORS* ' 

COL 


1 

■ 2. 

3 

4 

•5 

6 

7 

8 

. 9 

10 

80 

08 

14 

00 

00 

80 

oc 

00 

00 

00 

■40 

08 

14 

00 

00 

40 

oc 

00 

00 

00 

20 

08 

14 

00 

00 

20 

oc 

00 

00 

00 

10 

08 

14 

00 

00 

10 

oc 

00 

00 

GO 

08 

08 

14 

00 

00 

08 

oc 

00 

00 

00 

04 

08 

14 

00 

00 

04 

oc 

00 

00 

00 

02 

08 

14 

00 

00 

02 

oc 

00 

00 

00 

01 

08 

14 

00 

00 

01 

OC 

00 

00 

00 

00 

08 

14 

00 

00 

00 

oc 

00 

00 

00 

00 

08 

14 

00 

00 

00 

oc 

00 

00 

00 


EACH COLUMN IN THE ABOVE TABLE IS DEFINED BELOW** 

COLUMN 1 -DATA WRITTEN TO PUNCH SUFFER 
COLUMN 2 - PUNCH WRITE CHANNEL END STATUS 
COLUMN 3 ^ PUNCH WRITE DEVICE END STATUS 
COLUMN 4 - PUNCH WRITE SENSE DATA 
COLUMN 5 - PUNCH WRITE'CHECK READ DATA 
COLUMN 6 - PUNCH READ DATA 
COLUMN 7 - PUNCH READ- STATUS • 

COLUMN 8 r PUNCH READ SENSE DATA 

COLUMN 9 - PUNCH READ CHECK READ DATA 

COLUMN' 10 ■- DATA GROUP ERROR SWITCHES 

BIT 6 -ON- MEANS BIT DOES NOT TURN ON 

BIT 7 .-ON- MEANS SIT DOES NOT TURN OFF 


15JUL65 

124265 


17MAR66 

125643 


OQQQQQOOQ OOOOO 


4*4*2 ' ROUTINE 02 —‘CONTROL PROGRAM— 

LISTED BELOW IS A SAMPLE OF THE LOG OUT INFORMATION* THE 
DATA IS PRESENTED IN HEX FORM, 4 BITS PER CHARACTER® THIS 
SAMPLE REPRESENTS THE DATA ACCUMULATED WITH NO ERRORS® IF 
AN ERROR IS DETECTED, THE FIRST LINE IN THE TABLE BELOW 
WILL CONTAIN THE ERROR DATA® 

COL 


1 

2 

3 

4 

5 

6 

7 

8 

9 

1011 

12 

13 

14 

15 

16 

17 

18 

31 

08 

14 

00 

00 

31 

OC 

00 

00 

0401 

OC 

DO 

00 

31 

OC 

00 

00 

50. 

08 

14 

00 

00 

50 

OC 

00 

00 

2000 

oc 

00 

00 

50 

OC 

00 

00 

60 

08. 

14 

00 

00 

60 

oc 

00 

do 

1000 

oc 

00 

00 

60 

oc 

00 

00 

FO 

08 

14 

00 

OG 

FO 

oc 

00 

00 

0800 

OC 

00 

00 

FO 

oc 

00 

00 

FI 

08 

14 

00 

00 

FI 

oc 

00 

00 

0400 

OC 

00 

00 

Fi 

oc 

00 

00 

F2 

08 

14 

00 

00 

F2 

oc 

00 

00 

0200 

oc 

00 

00 

F2 

oc 

00 

00 

F 3 

08 

14 

00 

00 

F3 

oc 

00 

00 

0100 

oc 

00 

00 

F3 . 

oc 

00 

00 

F4 

08 

14 

00 

00 

F4 

oc 

00 

00 

0020 

oc 

00 

00 

F4 

oc 

00 

00 

F5 

08 

14 

00 

00 

F5 

oc 

00 

00 

0010 

oc 

00 

GO¬ 

F5 

oc 

00 

00 

F6 

08 

14 

OO¬ 

00 

F6 

oc 

00 

00 

0008 

oc 

00 

OD- 

F6 

oc 

00 

00 

FT 

08 

14 

OO 

00 

FT 

oc 

00 

00 

0004 

oc 

00 

00 

FT 

oc 

00 

00 

F8 

OB 

14 

00 

00 

F8 

oc 

00 

00 

0002 

oc 

00 

00 

F8 

oc 

00 

00 

F9 

08 

14 

00 

00 

F9 

oc 

00 

00 

0001 

oc 

00 

00 

F9 ’ 

oc 

00 

00 

40 

08 

14 

00 

00 

40 

oc 

00 

00 

0000 

OC 

00 

00 

40 OC 

00 

00 

31 

08 

14 

00 

00 

31 

Q€ 

00 

00 

0401 

OC 

00 

00 

31 

oc 

00 

00 


COLUMN 

. I 

- 

COLUMN 

2 

- 

COLUMN 

3 

- 

COLUMN 

4 

— 

COLUMN 

5 


COLUMN 

6 

- 

COLUMN 

■ 7 


COLUMN 

8 

- 

COLUMN 

9 

- 

COLUMN 

10 

— 

COLUMN 

11 

- 

COLUMN 

12 


COLUMN 

13 

- 

COLUMN 

14 

- 

COLUMN 

15 


COLUMN 

16 

- 

COLUMN 

17 

- 

COLUMN 

18 

— 


EACH COLUMN IN THE ABOVE TABLE IS DEFINED 'BELOW* ' 

DATA WRITTEN TO PUNCH BUFFER 
PUNCH WRITE CHANNEL END STATUS 
PUNCH WRITE DEVICE END STATUS 
PUNCH WRITE SENSE DATA 
PUNCH WRITE CHECK READ DATA 
PUNCH READ DATA 
PUNCH READ STATUS 
PUNCH READ SENSE DATA 
PUNCH READ CHECK READ DATA 
READER WRITE DATA -1ST BYTE OF COL BINARY 
READER WRITE DATA -2ND BYTE OF COL BINARY 
READER WRITE STATUS 
READER WRITE SENSE DATA 
READER WRITE CHECK READ DATA 
READER READ DATA 
READER READ STATUS 
READER READ SENSE DATA 
READER READ CHECK READ DATA 

4*4®3 ROUTINE 03 —BUFFER ADDR FIT- 

LISTED BELOW IS A SAMPLE OF THE LOG OUT INFORMATION® THE 
DATA IS PRESENTED IN HEX FORM, 4 BITS PER CHARACTER* THIS 
SAMPLE REPRESENTS A SOLID FAILURE FOR 8UFFER ADDRESS 
' REGISTER UNITS -A-. . 

DEVICE XXX DIAG CK RD DATA - RESIDUAL COUNT IS 0020 SHLD BE 0020 
0000010000010101010100000100000101010101000001000001010101 
0000010000010101010100000100000101010101000001000001010101 
00000100000101010101000001000001010X0101000000000000000000 

DEVICE YYY DIAG CK RD DATA - RESIDUAL COUNT IS 0020 SHLD BE 0020 
OOOQQIOOOOOIOIQIOIOIQGOQOIOOOOOIQIOIOIOIQOOOOIOQQOOIOIOIOI 
000001000001010101010000010000010101010100000100Q00101010X 
0000010000010101010100000100000101G10101000000000000000000 

IN THE ABOVE PRINTOUTS OF DIAGNOSTIC CHECK DATA, XXX 
REPRESENTS THE READER ADDRESS AND YYY REPRESENTS THE 
PUNCH ADDRESS* : \ \ 
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EACH DIAGNOSTIC CHECK READ IS PERFORMED WITH A CCW COUNT 
OF 100 --DECIMAL* IF THE READER/PUNCH CIRCUITS ARE 
FUNCTIONING PROPERLY* THE RESIDUAL COUNT SHOULD BE 020 - 
ONLY 80 COLUMNS SHOULD BE READ* IN THE ABOVE PRINTOUT, 90 
BYTES OF DIAGNOSTIC CHECK READ DATA ARE DISPLAYED FOR 
EACH DEVICE. IT IS TO BE NOTED THAT ONLY ADDRESS CHECKS 
WILL BE INDICATED - ALL OTHER DIAGNOSTIC CHECK READ BITS 
ARE ELIMINATED BY THE PROGRAM. 

*«4«4 ROUTINE 04 —-READER TRANSLATOR FLT— 

LISTED BELOW IS A SAMPLE OF THE LOG OUT INFORMATION. THIS 
SAMPLE REPRESENTS THE DATA ACCUMULATED WITH NO ERRORS; A 
BRIEF DESCRIPTION OF EACH COLUMN IS INDICATED BELOW. 

1. DIAG WRITE DATA 

HEX - SINCE A DIAGNOSTIC WRITE TO THE READER BUFFER 
IS A COLUMN BINARY WRITE, TWO BYTES, AS INDICATED, ARE 
REQUIRED TO LOAD ONE READER BUFFER POSITION* THESE 
TWO BYTES ARE REPEATED THROUGHOUT A 160 BYTE WRITE 
FIELD IN AN ATTEMPT TO WRITE ALL 80 READER BUFFER 
POSITIONS WITH IDENTICAL DATA. A TOTAL OF 81 SEPARATE 
WRITES ARE PERFORMED WITH EACH WRITE USING DIFFERENT 
DATA AS INDICATED IN EACH ROW. 

HOLLERITH - THIS INDICATES THE READER BUFFER DATA 
REGISTER LATCHES WHICH WOULD BE SET BY TWO HEX BYTES 
INDICATED IN THE SAME ROW. 

2. READ DATA 

ACT - THIS IS THE ACTUAL DATA READ FROM THE READER 
BUFFER AFTER THE CORRESPONDING WRITE. 

EXPD - THIS IS THE EXPECTED READER READ DATA 

3. SENSE DATA 

ACT - THIS IS THE READER SENSE BYTE OBTAINED AFTER 
THE CORRESPONDING READ. REFER TO THE APPENDIX FOR 
SENSE BYTE INFORMATION. 

EXPD - THIS IS THE EXPECTED READER SENSE BYTE. 

4. CHECK READ DATA 

ACT - THIS IS THE READER DIAGNOSTIC CHECK READ DATA 
OBTAINED AFTER THE CORRESPONDING READ. REFER TO THE 
APPENDIX FOR DIAGNOSTIC CHECK READ INFORMATION. 

EXPD - THIS IS THE EXPECTED READER DIAGNOSTIC CHECK 
READ DATA. 

***NOTE*** AN ASTERISK WILL PRECEDE EACH ROW WHERE AN 
ERROR IS DETECTED. AN ERROR IS DETECTED 
WHEN THE ACTUAL AND EXPECTED RESULTS ARE 
NOT EQUAL. 


SENSE DATA I CHECK.READ DATA I 

-.--i----—r-1 

ACT I EXPD I ACT I EXPD I 
HEX- I -HEX- I -HEX- I -HEX- I 

1E00 E012 A3 A3 08 08 00 00 

OFOO 0123 E3 £3 08 08 00 00 


I DIAG WRITE DATA I READ DATA I 

I I I ACT I EXPD I 

I -HEX- I -HOLLERITH- I -HEX- I -HEX- I ~ 



0720 

1234 


F7 

F7 

08 

08 

00 

00 


0330 

2345 


F7 

F7 

08 

08 

00 

00 

■ ■ , • 

\ 

0138 

3456 


F7 

F7 

08 

08 

00 

00 


003C 

. 4567 

F7 

F7 

08 

08 

00 

00 

?■ 

001E 

5678 

7F 

7F 

08 

08 

00 

00 


OOOF 

6789 

3F 

3F 

08 

08 

00 

00 

{ .' ■ 

3800 

TEO 


70 

70 

00 

00 

00 

00 


1C00 

E01 


A1 

A1 

00 

00 

00 

00 

► ' 

OEOO 

012 


E3 

E3 

08 

08 

00 

00 

!■; 

0320 

234 


F7 

F7 

08 

08 

00 

00 

i . 

0130 

345 


F7 

F7 

08 

08 

00 

00 


0038 

456 


F7 

F7 

08 

08 

00 

00 


2C03 

T 01 

89 

00 

00 

00 

GO 

00 

00 

1 

2401 

T 1 

9 

01 

01 

00 

00 

00 

00 


2201 

T 2 

9 

02 

02 

00 

00 

00 

00 

i 

2101 

I 3 

9 

03 

03 

00 

00 

00 

00 


2021 

T ■ 4 

9 

04 

04 

00 

00 

' 00 

00 


2011 

T 5 

9 

05 

05 

00 

00 

00 

00 

i 

2009 

T ‘ 6 

9' ■ 

06 

06 

00 

00 

00 

00 

i 

2005 

T 7 9 

07 

07 

00 

00 

00 

. 00 


2003 

T 

89 

08 

08 

00 

■ 00 

00 

00 


' 2403 

T 1 

89 

09 

09 

00 

■ 00 

00 

. 00 

{ . : ' 

' 3403' 

TE 1 

89 

10 

10 

' 00 

00 

00 

00 

f. 

| ■ 

1401 

E 1 

9 

11 

11 

00 

00 

00 

00 

i •' - • 

1403 

E 1 

89 ' 

19 

19 

00 

00 

00 

00 


ICO 3 

E01 

89 ' 

' 20 

20 

00 

00 

00 

• 00 


0C01 

01 ■ 

9 

21 

~ 21 

00 

00 

00 

■ ' 00 


OAO1 

0 2 

9 

' 22 

22 

00 

do 

00 

00 

i ; 

0C03 

01 

89 

29 

29 

00 

00 , 

00 

00 


0A03 

0 2 

89 • 

2A 

2A 

00 

00 

00 

00 


3 CO 3 

TEOl 

89 

30 

' 30 

00 

00 

00 

00 


0000 



40 

40 

00 

00 

00 

; 00 


2C01 

' T 01 

9 

' 41 

41 1 

00 

00 

00 

00 


2A01 

T 0 2 

9 

42 

. 42 ' 

00 

00 

00 

00 


2803 

T 0 

89 • 

48 

48 

00 

00 

00 

00 


2402 

I 1 

.8 

49 

49 

00 

00 

00 

00 


2202 

T 2 

8 

4A 

4A 

00 

00 

00 

. V oo 


2000 

T 


50 

50 

00 

00 

■ 00 

■ - 00 


3401 

TE 1 

9 

51 

51 

00 

00 

00 

’ 00 


3003 

TE 

89 

58 

58 

00 

00 

GO 

00 


1000 

E 


60 

60 

00 

00 

00 

00 


OCOO 

01 


61 

61 

00 

00 

. 00 

00 


’ 1 AO 1 

EO 2 

9 

62 

62 

00 

00 

00 

00 


3000 

TE 


6A 

6A 

00 

00 

00 

00 


3C01 

TEOl 

9 

71 

71 

00 

00 

00 

00 


0202 

2 

8 

7 A 

7A 

00 

00 

00 

00 


2C02 

T 01 

8 

80 

80 

00 

00 

00 

00 


2A00 

T 0 2 


82 

82 

00 

00 

00 

00 


2900 

T 0 3 


83 

83 

00 

00 

00 

00 


2820 

TO 4 


84 

84 

00 

00 

00 

00 


2810 

TO 5 


85 

85 

00 

00 

00 

00 


2808 

TO 6 


86 

86 

00 

00 

00 

00 

■ ■ ■ 

2804 

TO 7 

87 

87 

00 

00 

00 

00 

i -.. '■ 

2802 

TO 

8 

88 

88 

00 

00 

00 

do 

j .■ 

2801 

T 0 

9 

89 

89 

00 

00 

00 

. 00 


2A02 

T 0 2 

8 

8A 

8A 

00 

00 

00 

00 


2902 

TO 3 

8 

8B 

86 

00 

00 

00 

00 

j : 

3402 

TE 1 

8 

90 

90 

00 

00 

00 

00 


3400 

TE 1 


91 

91 

00 

00 

00 

00 

\ . . 

3020 

TE 4 


94 

94 

. 00 

00 

00 

00 

1 

3010 

TE 5 


95 

95 

00 

00 

00 

00 


1C02 

E01 

8 

AO 

AO 

00 

00 

00 

00 


1A02 

EO 2 

8 

AA 

AA 

00 . 

00 

00 

00 


2800 

T 0 


CO 

CO 

00 

00 

00 

00 


2001 • 

T 

9 

C9 

C9 

00 

00 

00 

00 


1800 

EO 


DO 

DO 

00 

3 00 

00 . 

00 


0A02 

0 2 

8 

EO 

EO 

00 

00 

00 

00 


ICOi 

E01 

9 

El ’ 

El . 

00 

00 

00 

00 
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0014 

5 7 

FT 

F7 

08 

08 

00 

00 

0018 

56 

FT 

FT 

08 

08 

00 

00 

0024 

4 ? 

FT 

FT 

08 

08 

00 

00 

0030 

45 

F5 

F5 

08 

08 

00 

00 

0028 

4 6 

F6 

F6 

08 

08 

00 

00 

0204 

2 ■ 7 

FT 

FT 

08 

08 

00 

00 

0208 

2 6 

F6 

F6 

08 

08 

00 

00 

0210 

2 5 

FT 

FT 

08 

08 

00 

00 

0220 

2 4 

Ffe 

. F6 

08 

08 

00 

00 

0300 

23 

F3 

F3 

08 

08 

00 

00 

0108 

3 6 

F? 

FI 

08‘ 

08 

00 

00 


*•4.5 ROUTINE 05 —PUNCH TRANSLATOR FLT— 

LISTED BELOW IS A SAMPLE OF THE LOG OUT INFORMATION® THE 
DATA IS PRESENTED IN HEK FORM f 4 BITS PER CHARACTER® THIS 
SAMPLE REPRESENTS THE DATA ACCUMULATED WITH NO ERRORS® 

COL 


1 

2 

3 

4 

5 

6 

00 

00 

00 

00 

00 

00 

01 

00 

00 

01 

00 

00 

02 

• 00 

• 00 ■ ■ 

02 

00 

00 

03 

00 

00 

03 

00 

00 

04 

'' 00 

00 

04 

00 

00 

0-5 

00 

00 

05 

00 

00 

06 

00 

00 

06 

00 

00 

07 

00 

00' 

07 

00 

00 

08 

00 • 

00 

08 

00 

00 

09 

00 

" 00 

09 

00- 

00 

OA 

00 

' 00. 

•OA': 

00 

00 

10 

00 ■ 

00 

10 

00 

00 

11 

' GO 

00 

11 

00 

00 

19 

. ..00 

00 

19 

00 

• 00 

IA 

00 

00 

1A 

00 

00 

20 

. 00 ■ 

00 

20 

00 

00 

21 

00 

■.■.■00 

21 

00 

00 

22 

00 

00 

22 

00 

00 

29' 

00 

00 ' 

29 

00 

00 

2A. 

"00 

00 

2A 

GO 

00 

30 

00" 

QCTV V 

■'30 ' 

00 

GO 

40 

00 

00" 

40' 

.00 

00 

41 

00 

00 

41 

00 

00 

42 

00 

00 

42 

00 

00 

48 

00 

00 

48 

00 

00 

49 

00 

00 

49 

00 

00 

4A 

00 . 

00 

4A 

00 

00 

50 

00 

00 

50 ■ 

' 00 

00 

51 

00 

00 

51 

00 

00 

58 

00 

00 

58 

00 

00 

59 

00 

00 

5.9 

' 00 

00 

60 

00 

00 

60 

00 

00 

61 ' 

00 

00 

61 

00 

00 

62 

00 

00 

62 

00 

00 

63 

00 

00 

63 

00 

GO 

68 

00 

00 

68 

00 

00 

6A 

00 

00 

6A 

00 

00 

68 

00 

00 

68 

00 

00 

6E 

00 

00 

6E 

00 

00 

70 

00 

00 

70 

CO 

00 

72 

00 

00 

72 

00 

00 

78 

do 

00 

78 

00 

00 

7A 

00 

00 

7A 

00 

00 

80 

00 

00 

80 

00 

00 

81 

00 

00 

81 

00 

00 

82 

03 

00 

82 

00 

00 

88 

00 

00 

88 

00 

00 

89 

00 

00 

89 

00 

00 


83 

00 

00 

8B 

00 

00 

91 

00 

00 

91 

00 

00 

A1 

00 

00 

A1 

00 

00 

A 9 

00 

00 

A9 

00 

00 

CO 

00 

00 

CO 

00 

00 

Cl 

00 

00 

Cl 

00 

00 

C2 

00 

00 

C2 

00 

00 

C8 

00 

00 

C8 

00 

00 

CA 

00 

00 

CA 

00 ‘ 

00 

DO 

00 

00 

' DO 

00 

GO 

D2 

00 

00 

D2 

00 

00 

D8 

00 

00 

D8 

00 

00 

DA 

00 

00 

DA 

00 

00 

EO 

00 

00 

EO 

00 

00 

Ei 

00 

00 

El 

00 

00 

E2 

00 

00 

E2 

00 

00 

E3 

00 

00 

E3 

00 

00 

E8 

00 

00 

£8 

00 

00 

E9 

00 

00 

E9 

00 

00 

EA 

00 

.- 00 

EA 

00 

00 

£B 

00 

00 

EB 

00 

00 

FO 

00 

00 

FO 

00 

00 

FA 

00 

00 

FA 

00 

00 


EACH COLUMN IN THE ABOVE TABLE IS DEFINED BELOW® 


COLUMN 

COLUMN 

COLUMN 

COLUMN 

COLUMN 

COLUMN 


**NQTE«* 


- DATA WRITTEN TO PUNCH BUFFER , 

- PUNCH WRITE SENSE DATA 

- PUNCH WRITE CHECK READ DATA 

- PUNCH READ DATA 

- PUNCH READ SENSE DATA 

- PUNCH READ CHECK READ DATA 

EACH ROW IN THE ABOVE TABLE THAT IS IN ERROR 
WILL BE PRECEEDED 8Y AN ASTERISK® AN ERROR 
IS DETECTED WHEN THE PUNCH WRITE AND READ DATA 
ARE NOT EQUAL .AND/OR WHEN THE SENSE OR CHECK 
READ DATA. IS NOT ZERO® 

5® COMMENTS 

5®1 PROGRAM PHILOSOPHY AND ASSOCIATED COMMENTS • 

THE BASIC PHILOSOPHY EMPLOYED BY THIS PROGRAM IS TO —FIRST- 
AREA ISOLATE A. SOLID DATA PATH FAILURE WITHIN THE 2821/2540 
ATTACHMENT, AND —SECOND— FURTHER ISOLATE THE FAILURE TO 
PARTICULAR CIRCUIT-S-. IN ORDER TO UTILIZE THIS PHILOSOPHY 
WITH THE EXISTING MAIN STORAGE SIZE LIMITATIONS, IT WAS 
NECESSARY TO EMPLOY THE PROGRAM OVERLAY CONCEPT * EACH OVERLAY . 
— ROUTINE— IS DESCRIBED IN DETAIL BELOW* 

5®2 DESCRIPTION —ROUTINE 01, CHANNEL REG FLT— 

THE PRIMARY OBJECTIVE OF THIS ROUTINE IS TO CIRCUIT ISOLATE A 
SOLID FAILURE IN THE CHANNEL REGISTER CIRCUITS WITHIN THE READER/ 
PUNCH ATTACHMENT OF THE 2821* 

THIS ROUTINE ACCOMPLISHES ITS OBJECTIVE BY INVESTIGATING THE 
EIGHT CHANNEL REGISTER BITS - 0, 1, 2, 3, 4, 5, 6, 7® WITH EACH 
OF THESE LINES MADE ACTIVE, ONE AT A TIME, THE FOLLOWING SEQUENCE 
OF OPERATIONS ARE PERFORMED- 

1. WRITE PUNCH BUFFER 

A* SENSE I/O —IF UNIT CHECK STATUS— 

B® DIAGNOSTIC CHECK READ 

■ 2. ■ READ' PUNCH BUFFER ■ . ■ 

A. SENSE I/O —IF UNIT CHECK STATUS- 
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B. DIAGNOSTIC CHECK READ 

laiTran^ir-r.siM: 

ON PRINTOUTS. 

after all data has ^^utpu^message will S indicate G the°results 
of A this S analvsis'as an error or --channel REG ok--. IF on 

H ?Ji‘S ! 5&ss-- 

M «KSI, ”if S ERRORS RRE „r«T,D. ROOT.« 

02 WILL BE RUN* 

ssr..ror;:,fs L Rt"™”"-srsy^"™i E »^ 

BE SET TO l TO OBTAIN THIS LOG OUT. 

DESCRIPTION —ROUTINE 02, CONTROL PROGRAM— 

DEFINED BELOW— 

1* READ/PUNCH BUFFER DATA REGISTER 

ll read/punc^buffer? 1 inhibit line, and sense amps 

4. READ TRANSLATOR 

5. READ TRANSLATE CHECK CIRCUITRY 

6* PUNCH TRANSLATOR „ T „„ I1TTDV 

7* PUNCH TRANSLATE CHECK CIRCUITRY 

«”• - ;;s t s‘s “8.?s™?- st; i,«» 

EACH TRANSLATOR ARE INVESTIGATED. 

THIS ROUTINE ACCOMPLISHES ITS OBJECTIVE BY INVESTIGATING THE 
THIRTEEN COMMON DATA LINES - f.’ }* f 0F * THESE DAT a LINES MADE 

H ArTm, T ONE 2 ArA A nSEr M TH T E*FO W L^HING SEQUENCE OF OPERATIONS ARE 
PERFORMED WITH A CCW COUNT EQUAL TO ONE. 

l * WR ” E SENSE I/0 F — IF UNIT CHECK STATUS— 

B. DIAGNOSTIC CHECK READ 

2. READ PUNCH BUFFER ctatiis— 

A. SENSE I/O —IF UNIT CHECK STATUS 

B. DIAGNOSTIC CHECK READ 

>• "i" U..T c«ec« 

B. DIAGNOSTIC CHECK READ 
4. READ READER BUFFER 

A. SENSE I/O 

B. . DIAGNOSTIC CHECK READ 

swTOi’SiiBsr- “»- ss "« 

OF THIS DESCRIPTION. 

AFTER ALL DATA HAS DEEN ACCUMULATED, IT IS INTERROGATED BY d i£ ATED 
ANALYSIS ROUTINE. ^HE RESULTS OF THIS ANALYSIS HILL^ 

,.3., ™..».« 

INFORMATION. 
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ERRORS ARE DETECTED, ROUTINE 03 WILL BE BYPASSED. 

THE LOG OUT OF DATA ACCUMULATED BY ROUTINE IS DESCRIBED. IN 

SECTION 4.4.2 OF THIS DESCRIPTION. SECTION* SENSE SWITCH 2 MUST 
BE SET TO 1 TO OBTAIN THIS LOG OUT. 

5.4 DESCRIPTION —ROUTINE 03, BUFFER ADDR FLT 

THE PRIMARY OBJECTIVE OF THIS ROUTINE IS TO CIRCUIT ISOLATE A 
SOLID FAILURE WITHIN THE 2821 READ, PUNCH, AND BUFFER ADDRESS 
REGISTERS. THIS OBJECTIVE IS ACCOMPLISHED IN THE FOLLOWING 
MANNER. 

1. PERFORM TWO DIAGNOSTIC CHECK READS TO THE READER, AND 
SAVF THE CCW COUNT AND DATA OF THE SECOND READ. 

2. PERFORM TWO DIAGNOSTIC CHECK READS TO THE PUNCH, AND 
SAVE THE CCW COUNT AND DATA OF THE SECOND READ* 

a FILTER OUT ALL BUT ADDRESS CHECKS FROM THE READ DATA. 

4. DETERMINE IF READ, PUNCH, OR BUFFER. ADDRESS REGISTER PROBLEM 
RY ANALYZING THE SAVED DATA. 

5 CIRCUIT ISOLATE PROBLEM IN FAULTY ADDRESS REGISTER BY 
COMPARING DIAGNOSTIC CHECK READ DATA TO PRE-DETERMINED 
ERROR PATTERNS. 

6. PRINT APPROPRIATE ERROR NUMBER 

THE C.E. CAN THEN REFER TO SECTION 4.3.3 OF THIS DESCRIPTION 
FOR DETAILED INFORMATION OF THE PROGRAM ANALYSIS* 

THE LOG OUT OF DATA ACCUMULATED BY THIS ROUTINE « DESCRIBED IN 
SECTION 4.4.3 OF THIS DESCRIPTION. SECTION SENSE SWITCH 2 MUST 
BE SET TO 1 TO OBTAIN THIS LOG OUT. 

5*5 DESCRIPTION—ROUTINE 04, READER TRANSLATOR FLT— 

***NOTE*** THIS ROUTINE WILL BE RUN ONLY WHEN ROUTINE 02 
INDICATES ERROR 005, 007, Oil* 018, 022, OR 
NO ERROR INDICATION. 

THE OBJECTIVE OF THIS ROUTINE IS TO CIRCUIT ISOLATE A SOLID FAILURE 
WITHIN THE FOLLOWING AREAS— 

1. BUFFER DATA REGISTER 

2. INVALID CARD CODE CHECKING CIRCUITS 

3. READER TRANSLATOR 

THIS OBJECTIVE IS ACCOMPLISHED BY PROVIDING TO THE ABOVE AREAS 
THE REQUIRED INPUTS TO EXERCISE ALL CIRCUITS. THE OUTPUTS ARE 
THEN INTERROGATED FOR A UNIQUE PATTERN WHICH DESCRIBES A 
PARTICULAR CIRCUIT FAILURE. TO PROVIDE THE INPUTS AND OBTAIN THE 
OUTPUTS, THE FOLLOWING SEQUENCE OF OPERATIONS ARE PERFORMED “ 

1. DIAGNOSTIC WRITE TO READ BUFFER uucoc cr phty 

THIS WRITE USES A CCW. COUNT OF 160, DECIMAL, WHERE EIGHTY 
IDENTICAL COLUMN BINARY CHARACTERS WILL BE WRITTEN* 

2* READ READER BUFFER 

3. SENSE I/O 

4. DIAGNOSTIC CHECK READ * 

THE ABOVE SEQUENCE OF OPERATIONS IS REPEATED EIGHTY-ONE TIMES# 

FOR EACH REPEAT, THE DIAGNOSTIC WRITE USES DIFFERENT DATA* THIS 
DATA IS INDICATED IN SECTION 4.4.4 OF THIS DESCRIPTION* 

THIS ROUTINE PROVIDES OUTPUT MESSAGES IN THE FORM OF AN ERROR^ 
NUMBER. THE C.E*i IS REQUIRED TO REFERENCE THIS ERROR NUMBER TO 
SECTION 4.3.5 OF THIS DESCRIPTION FOR'DETAILS CONCERNING THE 
FAUURE ADDITIONAL OUTPUT IS PROVIDED IN THE FORM OF A LOG OUT 
-SEE SECTIoS I!4*4-. THIS LOG OUT IS PROVIDED ONLY IF SECTION 
SENSE SWITCH 02 IS SET TO 1 PRIOR TO RUNNING THE ROUTINE* 
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5*6 DESCRIPTION —ROUTINE 05, PUNCH TRANSLATOR FLT—- 

**.*NOTE*** THIS ROUTINE WILL BE RUN ONLY WHEN ROUTINE 02 
INDICATES ERR 019, ERR 024, ERR 025* OR NO 
ERROR INDICATION* 

THE OBJECTIVE OF THIS ROUTINE IS TO CIRCUIT ISOLATE A SOLID 
FAILURE WITHIN THE PUNCH TRANSLATOR® THIS IS ACCOMPLISHED BY 
PROVIDING TO THE PUNCH TRANSLATOR THE REQUIRED INPUTS TO 
EXERCISE ALL' CIRCUITS* THE OUTPUTS ARE THEN INTERROGATED'FOR 
A UNIQUE PATTERN WHICH DESCRIBES A PARTICULAR CIRCUIT FAILURE* 

TO PROVIDE THE INPUTS AND OBTAIN THE OUTPUTS, THE FOLLOWING. 

SEQUENCE OF OPERATIONS ARE PERFORMED— 

1* WRITE PUNCH BUFFER 

THIS WRITE OSES A COM COUNT OF 80, .DECIMAL* WHERE EIGHTY 
IDENTICAL CHARACTERS WILL BE WRITTEN* 

2m SENSE 1/0 TO PUNCH 

3® DIAGNOSTIC CHECK READ TO PUNCH 

4* READ PUNCH BUFFER » ’ 

5* SENSE I/O TO PUNCH 
6 ® DIAGNOSTIC CHECK READ TO PUNCH 

THE ABOVE SEQUENCE OF OPERATIONS IS REPEATED SEVENTY-ONE TIMES* 

FOR EACH REPEAT * THE PUNCH WRITE USES DIFFERENT DATA* THIS DATA 
IS INDICATED IN SECTION 4*4*5 OF THIS DESCRIPTION* 

THIS ROUTINE PROVIDES OUTPUT MESSAGES IN THE FORM OF AN ERROR 
NUMBER* THE C*E* IS REQUIRED TO REFERENCE THIS ERROR NUMBER TO 
SECTION 4*3*6 OF THIS DESCRIPTION FOR DETAILS CONCERNING THE 
FAILURE® ADDITIONAL OUTPUT IS PROVIDED IH THE FORM OF A LOG OUT 
—SEE SECTION 4*4*5—* THIS LOG OUT IS PROVIDED ONLY IF SECTION • 
SENSE SWITCH 02 IS SET TO 1 PRIOR TO RUNNING THE ROUTINE* 

6 * . APPENDIX 

6*1' READER/PUNCH COMMAND. CODES 

##*****#«#****'******#*••«•*»***««**•*««**««««.***«.•#»*•««-».#•»«#»#*»»*•* 


• ■ 0 COMMAND REJECT 

*.'■ 1 INTERVENTION REQUIRED 

* 2 BUS OUT CHECK 

* 3 EQUIPMENT CHECK 

* 4 DATA CHECK 

'* 5 NOT USED 

* 6 UNUSUAL COMMAND SEQUENCE 

* 7 NOT USED . V 

* 

-'****#* ***#******##***#*:*###** ******** #*»*#***•»** ****** »»*****#»****»*»« 
6*3 DIAGNOSTIC CHECK READ INFORMATION * 

. **************************** *****»*************.* ***#**#**#*#****## 4 *## 

* THIS COMMAND PROVIDES FURTHER LOCALIZATION OF READER AND PUNCH - 

* CHECK PROBLEMS* DIAGNOSTIC CHECK READ WILL PERFORM A TRANSFER OF 

* CHECK INFORMATION TO THE CPU* THE SIGNALS RETURNED ARE AS FOLLOWS— 


NOT USED 

NOT USED 

NOT USED 

XU CHECK PLANE 

XL CHECK PLANE 

BUFFER PARITY CHECK 

READ TRANSLATE CHECK 

READER BUFFER ADDRESS 

CHECK 


NOT USED 

NOT USED 

NOT USED 

XU CHECK PLANE 

XL CHECK PLANE 

BUFFER PARITY CHECK 

PUNCH TRANSLATE CHECK 

PUNCH BUFFER ADDRESS 

CHECK 


BITS 0,1? AND 2 SHOULD ALWAYS BE ZERO* BITS 3*4, AND 5 CAN APPEAR 
IN ANY BYTE TO INDICATE THE POSITION IN ERROR* BIT 6 WILL APPEAR 
ONLY IN THE FIRST BYTE OF THE CHECK READ TRANSFER AND INDICATE A 
TRANSLATE CHECK IN, THE PREVIOUS DATA TRANSFER® BIT 7 WILL APPEAR 
IN THE FIRST BYTE OF THE TRANSFER IF THE ERROR OCCURRED ON A 
PREVIOUS CYCLE OR IF THE ERROR OCCURRED ON THE FIRST BYTE OF 
TRANSFER* IT WILL APPEAR IN SUCCEEDING BYTES IF ERRORS RE-OCCUR 
DURING THE TRANSFERS® 

***********'••**»«»«**«»***»#*»*•*****#»**#***# w*********.*#*****#***** • 


VALID COMMANDS TO THE•READER/PUNCH® NOT SHOWING STACKER 
SELECT OR OTHER VARIOUS OPTIONS THAT ARE AVAILABLE® 

FUNCTION • COMMAND CODE BITS HEX' CC 


1 * . 




0 

1 

2 

3 

4 

5 

6 

7 











f * 

l a 

TEST I/O . 


W A 

0 

0 

0 

0 

0 

0 

0 

0 

0 

« 


» 





00 

WHERE ALL 

f * 

SENSE * . 

• • ® 

to © 

X 

X 

X 

X 

0 

i 

0 

0 

to 

• 

* 

„ 





04 

X CHARS® 

i 

no op • •; 

• • • 

• © 

0 

0 

0 

0 

0 

0 

1 

1 

to 

• 

« 

* 

« 


* 

« 

03 

ARE IN THE 

i * 

READ • • . 

• ®- * 

• • © . 


- 

0 

X 

' X 

X 

1 

0 


® 

4> 

* 

to 

* 

» 

• 

02 

ZERO STATE 

! * 

WRIT <» ® © ■ 

« ® ® 

to 

- 


0 

- . 

• 

X 

0 

1 


* 

« 

* 

. to ' 

; 


„ 

01 


■ 

DIAGNOSTIC 

WRITE 

© ' 4* 

— 

— 

1 

0 

0 

I 

0 

1 

*■ 

» 


• 

to 




25 


j * 

DIAGNOSTIC 

READ 

© 4) 

1 

1 

0 

0 

0 

1 

0- 

1 

+ 

* 


* 

'to 

* 

* 

* 

C5 


1 

DIAGNOSTIC 

CHECK 

RD 

1 

1 

0 

0 

0 

i 

1- 

0 

m 

« 

• 

* 

. 

* 

* 

* 

C6 



WHERE X FORMS VARIATIONS ON OPTIONS AND - REPRESENTS 
MODIFIERS WHICH MAY BE COMBINED® 


*•«*******»*##»**»*•******#»•*•*•»****»»•***•*'**«*•»#*•*•#««'»##«*****•-» 


6«2 SENSE BYTE INFORMATION 


• #•*»*•*•***•.**•*#»*.*•*•*#**'••*«•..**»**•«•»*«****#«'.****•#«*«•*#••****** 

* .' ONE SENSE BYTE 

* . BIT - MEANING V ; 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 









00107D 

001570 

IORADR 

DC 

AL31SI0INT) 

I/O RETURN PSW INSTRUCTION ADDRESS 




8041 

TITLE F8041 CHANNEL REG FLT -ROUTINE OVERLAY 01- 




* 

REGISTER DUMP AREA 


* 



» 




• 

001080 



DS 

96C 

SUPERVISOR REGISTER DUMP AREA 




* 

MODIFICATIONS 


* 







ft* 



• 


1. CHANNEL REG FLT 

-ROUTINE OVERLAY 01- 

* 



* 

SECTION PREFACE UNIT TABLE 


* 



* 


MODIFIED THE SUB 

-ROUTINE WHICH DETECTS THAT A CHANNEL 

* 




***** 



ft* 



* 


REGISTER LATCH IS ALWAYS IN THE -ON- STATE. 

* 

OOIOEO 

81 

UNIT1 

DC 

XL1'81• 

UNIT TYPE - UNIT 1 -READER 




* 


2. CONTROL PROGRAM 

-ROUTINE OVERLAY 02- 

* 

0010E1 

00 


DC 

XL 1•00' 

I/O OPTIONS 




* 


MODIFIED TO SELECT ROUTINE OVERLAY 04 -READER 

* 

0010E2 

8000 

UN1ADR 

DC 

XL2•8000* 

FLAGS AND ACTUAL UNIT ADDRESS 




* 


TRANSLATOR FLT- 

AND ROUTINE OVERLAY 05 -PUNCH 

» 



* 







• 


TRANSLATOR FLT. 

THESE TWO ROUTINES ARE NEW ADDITIONS 

• 

001064 

82 

UNIT2 

DC 

XL1•82• 

UNIT TYPE - UNIT 1 -PUNCH 




* 


TO THIS PROGRAM 

PACKAGE. 

• 

0010E5 

00 


DC 

XLl'OO' 

I/O OPTIONS 




* 




« 

0010E6 

8.000 

UN2ADR 

DC 

XL2* 8000* 

FLAGS AND ACTUAL UNIT ADDRESS 




• 

ENGINEERING CHANGE PREREQUISITES 

# 



«*«***4 

t****4 



ft* 



* 


1. HARDWARE 


* 



* 


VARIABLE FIELDS 


* 



« 


2821 CONTROL UNIT WITH 2540 ATTACHMENT AT MINIMUM 

* 




***** 



ft* 



* 


E.C. LEVEL 124265 

* 



* 

VARIABLES FOR SCOPING ROUTINE - DOUBLE WORD BOUNDARY 

• 



• 


2. PROGRAM 


» 



*********************************************************************** 



* 


NONE 


• 

0010E8 

0© 001234 0000 0000 

SCPCCW 

CCW 

X'OO*,SCPDAT, X'OO',00 

SCOPE ROUTINE CCW 

l 




***** 



• 

»•** 



* 

VARIABLES FOR SCOPING ROUTINE - WORD BOUNDARY 

• 



XF8041 

START 4096 






l**»*4 



ft* 


001000 


USING *,15 



0010F0 

00000000 

SCPRK1 

DC 

4F'00* 

GR9 THRU GR12 SAVED HERE 




******* 

ft ***4 



»«*» 

0010F4 

00000000 








* 




• 

0010F8 

00000000 







.*» • ■ ' 

* 


RESIDENT ROUTINES 

* 

0010FC 

00000000 








« 




* 

001100 

00000000 

SCPRK4 

DC 

F • 00' 

WORK AREA 




* 




* 



* 

VARIABLES FOR SIO ROUTINE - 

WORD BOUNDARY 

* 



• 


SECTION SENSE SWITCH USAGE 

* 



******* 

**••*4 



»•* 

■* 

• 

* 




* 

001104 

00000000 

SIDVR1 

DC 

9F * 00' 

GR1 THRU GR9 SAVED HERE BY SIO 




• 

ssw 

0, LOC X004* BIT 0 

- LOOP ON START I/O 

* 

001108 

00000000 








* 

ssw 

1, LOC X004, BIT 1 

- USE UTILITY SCOPE ROUTINE 

* 

00110C 

00000000 








* 

ssw 

2, LOC X004, BIT 2 

- LOG OUT DATA TABLE 

* 

001110 

00000000 








* 

ssw 

6, LOC X004, BIT 6 

- PRINT TITLE 

* 

001114 

00000000 








******************************************************************* 

****! 

001118 

00000000 








* 

SECTION PREFACE 


#■ 

00111C 

00000000 








*********************************************************************** 

001120 

00000000 






001000 

F80410 

SECST 

DC 

XL3 *F80410 1 

PROGRAM & SECTION NUMBER 


001124 

00000000 






001003 

00 


DC 

XL 1 * 0 * 

THIS FIELD MUST CONTAIN ZEROS 


001128 

00000000 

SI0VR2 

DC 

F • 00 • 

SEC PREF CAW SAVED HERE BY SIO 


001004 

00000000 

SNSW 

DC 

XL4 * 0 * 

SENSE SWITCHES 


00112C 

00000000 

SI0VR3 

DC 

2F * 00* 

CSW SAVE AREA FOR ORIG SIO 

1 

001008 

0000 


DC 

XL2 ' 0 1 

RESERVED 


001130 

00000000 






00100A 

0000 

ICM 

DC 

XL2 1 0 1 

INTERRUPTION CONDITION MASK 


001134 

00000000 

SI0VR4 

DC 

F ' 00 ' 

CC SAVED HERE FOR ORIG SIO 

| 

00100C 

00 


DC 

XL 1 * 0 * 

RESERVED 


001138 

00000000 

SI0VR7 

DC 

F 1 00' 

CC SAVED HERE FOR SENSE I/O 

1 

00100D 

02 

NIOU 

DC 

XL 1•02 * 

NUMBER OF I/O UNITS THAT CAN BE TEST 

00113C 

00000000 

SI0VR8 

DC 

2F * 00* 

CSW SAVE AREA FOR SENSE I/O 

j 

0010 0 E 

80 

FLAGS1 

DC 

XLl'80' 

SECTION FLAGS, EXCLU. CPU 


001140 

00000000 





1 

00100F 

00 

FLAGS2 

DC 

XL1* 0 * 

INTERRUPT HANDLING FLAG. 


001144 

00000000 

SI0VR9 

DC 

2F * 00 8 


■ | 

001010 

010400000F 

INPSW 

DC 

X'0104Q0000F• 



001148 

00000000 





t 

001015 

00186C 


DC 

AL3(RTN01) 

INITIAL PSW STARTING ADDRESS FOR 




*********************************************************************** 



. * 



ROUTINE 01 - THIS ADDRESS. IS 




* 

VARIABLES FOR SIO ROUTINE - 

NO BOUNDARY 

* 1 



* 



CHANGED FOR EACH OVERLAY 




*********************************************************************** | 

001018 

0000000000000000 


DC 

5XL8*0* 

OLD PROGRAM STATUS WORDS 


00114C 

00 

CAWKEY 

DC 

X'OO' 

CAW KEY STORED HERE 


001020 

0000000000000000 






00114D 

00 

SIOSWS 

DC 

X'OO' 

SIO SWITCHES 


001028 

0000000000000000 






00114E 

C961D640C1C4C4D940 

SI0MS1 

DC 

C'I/0 ADDR XXX CAW* 

CCO BUT NO INTERRUPT 


001030 

0000000000000000 






001157 

E7E7 E740C3C1E6 






001038 

0000000000000000 






00115E 

40E7E7E7 E7E7E7E7E7 


DC 

C' XXXXXXXX GOT CC 



001040 

0000000000000000 

csw 

DC 

XL8'0* 

CHANNEL STATUS WORD 


001167 

40C7D6E340C3C3 






001048 

00000000 

CAW 

DC 

XL4'0 * 

COMMAND ADDRESS WORD 


00116E 

F040C2E4E340D5D640 


DC 

C'O BUT NO INTERRU' 



00104C 

000000000000000000 


DC 

XL12•0' 

RESERVED 


001177 

C9D5E3C5D9D9E4 






001055 

000000 






00117E 

D7E3 


DC 

C'PT' 



001058 

0000000000000000 

EXTR 

DC 

XL8 * 0 * 

EXTERNAL RETURN PSW 


001180 

000000 

SI0VR5 

DC 

XL3 * 00• 

BCD ADDR OF UNIT ADDRESSED BY SIO 


001060 

0104000Q0F 

SVRPSW 

DC 

X * 010400000F * 



001183 

00 

SI0VR6 

DC 

X'OO' 



001065 

00171.C 


DC 

AL3(EXIT2) 

RETURN ADDRESS 


001184 

C961D640C1C4C4D940 

SI0MS2 

DC 

C'I/0 ADDR XXX CAW' 

CC1 MESSAGE 


001068 

0000000000000000 

PIRPSW 

DC 

XL8•0* 

PROGRAM INTERRUPT RETURN PSW 


00118D 

E7E7E740C3C1E6 






001070 

0000000000000000 

MCRPSW 

DC 

XL8 * 0* 

MACHINE CHECK RETURN PSW 


001194 

40E7E7E7E7E7E7E7E7 


DC 

C' XXXXXXXX GOT CC' 



001078 

010400000F 

IORPSW 

DC 

X'010400000F 9 



00119D 

40C7D6E340C3C3 
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F 8041 

CHANNEL REG FLT -ROUTINE 

OVERLAY 01 - 



0011 A 4 
0011 AD 

F 140 C 3 E 2 E 640 E 2 E 3 C 1 

E 3 E 4 E 240 E 7 E 7 E 7 

DC 

C *1 CSW STATUS XXX* 


00 I 1 B 4 

0011 BD 

E 740 E 2 D 5 E 240 E 7 E 740 

40404040 

DC 

C*X SNS XX * 


0011 C 1 

0011 CA 

C 961 D 640 C 1 C 4 C 4 D 940 

E 7 E 7 E 740 C 3 C 1 E 6 

SI 0 MS 3 DC 

C*I/G ADDR XXX CAW* 

SENSE ERROR MESSAGE 

0011 D 1 
001 IDA 

40 E 7 E 7 E 7 E 7 E 7 E 7 E 7 E 7 

40 C 7 D 6 E 340 C 3 C 3 

DC 

C* XXXXXXXX GOT CC • 


0011 El 
0011 EA 

F 140 C 3 E 2 E 640 E 7 E 7 E 7 

E 7 E 7 E 7 E 7 E 7 E 7 E 7 

DC 

C «1 CSW XXXXXXXXXX* 


0011 FI 

E 7 E 7 E 7 E 7 E 7 E 7 

DC 

C«XXXXXX* 


0011 F 7 

00 

SENSE DC 

X* 00 * 


0011 F 8 

0000 

STATSV DC 

XL 2 • 00 * 

2 ND STATUS SAVED HERE 

0011 FA 

0000000000000000 

CSWAG DC 

XL 8•00 ® 

AGGREGATE CSW SAVED HERE 

001202 

00120 B 

C 4 C 9 C 1 C 740 C 3 D 240 D 9 

C 440 E 4 D 5 C 9 E 340 

MESS 1 DC 

C *DI AG CK RD UNIT « 

001212 
00121 B 

F 0 F 0 F 040 D 5 D 6 E 340 D 6 

D 26 B 

DC 

C *000 NOT OK,* 


00121 D 

001226 

40 E 6 C 9 D 3 D 340 E 3 D 9 E 8 

40 C 1 C 7 C 1 C 9 D 5 

DC 

C* WILL TRY AGAIN* 


00122 C 

00 

DC 

X* 00 * 

AREA TO SAVE PRINTABLE READER ADDR 

00122 D 

000000 

UARD DC ; 

XL 3 * 0 • 

f | 

001230 

00 

DC ' 

X* 00 * 

AREA TO SAVE PRINTABLE PUNCH ADDR 

001231 

000000 

UAPU DC XL 3 * 0 * f , 

* VARIABLES FOR SCOPING ROUTINE - NO BOUNDARY 

001234 

00123 D 

001246 

00124 F 

000000000000000000 

000000000000000000 

000000000000000000 

000000000000000000 

SCPDAT DC 

XL 180 * 0 * 

SCOPE ROUTINE DATA FIELD 


001258 000000000000000000 
001261 000000000000000000 
00126A OOOOOOOOOOOOOODOOO 
001273 000000000000000000 
00127C 000000000000000000 
001285 000000000000000000 
00128E 000000000000000000 
001297 000000000000000000 
0012A0 000000000000000000 
0012A9 000000000000000000 
0012B2 000000000000000000 
0012BB 000000000000000000 
0012C4 000000000000000000 
0012CD 000000000000000000 
0012D6 000000000000000000 
0012DF 000000000000000000 


«****»**»»*«*«**«»«*«««»«»*i»*a.*«.* 
* START I/O ROUTINE 

****««*«»«**««»«#««#*a *«*««*«**«* 


0012E8 







CNOP 

0,4 

0012E8 

D2 

02 

F 

180 

F 

22D 

SIO MVC 

SI0VR5(3),UARD 

0012EE 

91 

02 

F 

140 



TM 

SIOSWS,X*02* 

0012F2 

47 

10 

F 

2FC 



BC 

ALLON,*810 

0012F6 

D2 

02 

F 

180 

F 

231 

MVC 

SI0VR5(3},UAPU 

0012FC 

02 

02 

F 

07D 

F 

738 

MVC 

I0RPSW£5{3),SIOC 

001302 

90 

19 

F 

104 



STM 

GR1»GR9,$I0VR1 

001306 

D2 

03 

F 

128 

F 

048 

MVC 

SI0VR2(43,CAW 

00130C 

D7 

07 

F 

12C 

F 

12C 

SIOAOO XC 

SI0VR3C8),SI0VR3 

001312 

D7 

00 

F 

1F7 

F 

1F7 

XC 

SENSE(l),SENSE 

001318 

54 

CO 

F 

7 BO 



N 

GRC,CLRC 

00131C 

D2 

00 

F 

048 

F 

14C 

MVC 

CAW(1),CAWKEY 

001322 

D2 

03 

D 

048 

F 

048 

MVC 

HCAW(4,GRD),CAW 

001328 

9C 

00 

C 

000 



SIO 

O(GRC) 

00132C 

45 

10 

F 

330 



BAL 

GR1,*£4 

001330 

50 

10 

F 

134 



ST 

GR1,SI0VR4 

001334 

91 

80 

F 

14D 



TM 

SIOSWS,X«80 8 

DATE 
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EC 
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125643 




*»»*********#«*.»* * ********** * 4 * ******** 

* 

• ft**************************,********** 

SET UP CONSTANT FOR READER 
SEE IF READER WILL BE ADDRESSED 
BR IF YES 

SET UP CONSTANT FOR PUNCH 
LOAD RETURN ADDR IN IORPSW 
SAVE GR1 THRU GR9 
SAVE CAW 

CLEAR CSW SAVE AREA 

CLEAR SENSE BYTE 

AND OUT BITS 0 THRU 20 /F GR 12 

LOAD STORAGE KEY IN SEC PREF CAW 

LOAD CAW 

START I/O 

SAVE CONDITION CODE 
»» 

SEE IF RET TO PROG SW1 ON 
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F8041 

CHANNEL 

REG FLT -ROUTINE 

OVERLAY 01- 



001338 

47 10 

F 

5DE 

BC 

ALLON,SI0I04 

BR IF YES 

00133C 

91 30 

F 

134 

TM 

SI0VR4,X * 30• 

SEE IF SIO CC WAS ZERO 

001340 

47 50 

F 

36 A 

BC 

ANYON,SIOBOO 

BR IF NO 

001344 

OA D8 



SVC 

X * D8 * 

WAIT FOR I/O INTERRUPT 

001346 

91 80 

F 

004 

TM 

SNSW,X*80* 

BR IF SEC SS 00 IS 1 - LOOP SIO 

00134A 

47 10 

F 

3BE 

BC 

ALLON,SIOCOA 

, , 

00134E 

OA DD 



SVC 

X * DD * 

CONVERT CAW TO EBCDIC 

001350 

0004 



DC 

AL2(4) 

NO. OF HEX BYTES IN CAW 

001352 

0048 



DC 

AL2(CAW-SECST) 

HEX DATA ADDR 

001354 

015F 



DC 

AL2(SI0MS1C17-SECST) 

EBCDIC DATA ADDR IN OUTPUT MESSAGE 

001356 

D2 02 

F 

157 F 180 

MVC 

SI0MS1£9(3),SI0VR5 

SET I/O ADDR IN OUTPUT MESSAGE 

00135C 

92 FO 

F 

16E 

MV I 

SI0MS1£32»X*F0* 

SET CCO IN OUTPUT MESSAGE 

001360 

OA DO 



SVC 

X *D0 • 

PRINT GOT CCO BUT NO INTERRUPT 

001362 

40 



DC 

X*40* 

PRINT PROG NO. PRIOR TO MSG 


TREAT AS ERROR 
DO NOT CHAIN 
DO NOT RESTORE 

PRINT ON NORMAL OUTPUT DEVICE 


001363 

32 



DC 

X 1 32 * 

NO. OF CHAR IN MSG (50) 

001364 

F14E 



DC 

AL2(SI0MS1-BASECREG) 

MESSAGE ADDRESS 

001366 

47 FO 

F 

3BE 

BC 

ALWAYS,SIOCOA 

GO TRY SIO AGAIN 

00136A 

91 30 

F 

134 

SIOBOO TM 

SI0VR4,X•30* 

SEE IF $10 CC WAS 3 

00136E 

47 40 

F 

396 

BC 

MIXED,SIOCOO 

BR IF NO 

001372 

91 80 

F 

004 

TM 

SNSW,X* 80* 

BR IF SEC SS 00 IS 1 - LOOP SIO 

001376 

47 10 

F 

30C 

BC 

ALLON,SIOAOO 

» » 

00137A 

OA DD 



SVC 

X * DD * 

CONVERT CAW TO EBCDIC 

001370 

0004 



DC 

AL2(4) 

NO. OF HEX BYTES IN CAW 

00137E 

0048 



DC 

AL2(CAW-SECST) 

HEX DATA ADDR 

001380 

015 F 



DC 

AL2(SIQMS1G17-SECST) 

EBCDIC DATA ADDR IN OUTPUT MESSAGE 

001382 

D2 02 

F 

157 F 180 

MVC 

SI0MS1&9(3),SI0VR5 

SET I/O ADDR IN OUTPUT MESSAGE 

001388 

92 F3 

F 

16E 

MV I 

SI0MS1G32,X*F3* 

SET CC 3 IN OUTPUT MESSAGE 

00138C 

OA DO 



SVC 

X*DO' 

GOT CC3 ON SIO 

00138E 

40 



DC 

X*40* 

PRINT PROG NO. PRIOR TO MSG 


TREAT AS ERROR 
DO NOT CHAIN 
DO NOT RESTORE 
PRINT ON NORMAL OUTPUT DEVICE 


00138F 

21 



DC 

X' 21 * 

NO OF CHAR IN MSG (33) 

001390 

F14E 



DC 

AL2(SIOMSl-BASECREG) 

MESSAGE ADDRESS : 

001392 

47 FO 

F 

30C 

BC 

ALWAYS,SIOAOO 

GO TRY SIO AGAIN i 

001396 

91 10 

F 

134 

SIOCOO TM 

SI0VR4,X*10* 

SEE IF SIO CC WAS 2 t 

00139A 

47 10 

F 

3EE 

BC 

ALLON,SIODOO 

BR IF NO | 

00139E 

91 80 

F 

004 

TM 

SNSW,X•80• 

BR IF SEC SS 00 IS 1 - LOOP SIO 

0013A2 

47 10 

F 

3BE 

BC 

ALLON,SIOCOA 

! 

f t \. 

0013A6 

OA DD 



SVC 

X * DD * 

CONVERT CAW TO EBCDIC f 

0013A8 

0004 



DC 

AL2(4) 

NO. OF HEX BYTES IN CAW 1 

0013AA 

0048 



DC 

AL2(CAW-SECST) 

HEX DATA ADDR | 

0013 AC 

015F 



DC 

AL2(SI0MS1817-SECST) 

EBCDIC DATA ADDR IN OUTPUT MESSAGE I 

0013AE 

D2 02 

F 

157 F 180 

MVC 

SI0MS1G9(3),SI0VR5 

SET I/O ADDR IN OUTPUT MESSAGE 

0013B4 

92 F2 

F 

16E 

MVI 

SI0MS1C32,X*F2* 

SET CC 2 IN OUTPUT MESSAGE ! 

0013B8 

OA DO 



SVC 

X * DO • 

GOT CC2 ON SIO ■ 

0013BA 

40 



DC 

X*40* 

PRINT PROG NO. PRIOR TO MSG 


TREAT AS ERROR 
DO NOT CHAIN 
DO NOT RESTORE 
PRINT ON NORMAL OUTPUT DEVICE 


00I3BB 

21 



DC 

X * 21' 

NO OF CHAR IN MSG (33) 


0013BC 

F14E 



DC 

AL2(SIQMS1-BASECREG) 

MESSAGE ADDRESS 


0013BE 

9D 00 

C 

000 

SIOCOA TIO 

0(GRC) 

TEST I/O THIS DEVICE 


0013C2 

47 80 

F 

30C 

BC 

ZERO,SIOAOO 

REPEAT SIO IF CCO 


0013C6 

47 50 

F 

3BE 

BC 

ANYON,*-8 

LOOP PREV TIO UNTIL GET 

CCO 

0013CA 

18 2C 



LR 

GR2,GRC 

SAVE I/O ADDR STORED IN 

GR 12 

0013CC 

91 02 

F 

14D 

TM 

SIOSWS,X'02* 

SEE IF GR12 CONTAINS RDR 

ADDR 

001300 

47 10 

F 

3 DC 

BC 

ALLON,SI0C01 

BR IF YES 


0013D4 

48 CO 

F 

0E2 

LH 

GRC,UN1ADR 

SET READER ADDR IN GR 12 


0013D8 

47 FO 

F 

3E0 

BC 

ALWAYS,*G8 

BR AROUND NEXT OP 


0013DC 

48 CO 

F 

0E6 

SI0C01 LH 

GRC,UN2ADR 

SET PUNCH ADDR IN GR 12 


0013E0 

9D 00 

C 

000 

TIO 

O(GRC) 

TEST I/O 


DATE 

15JUL65 


17MAR66 
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0013E4 

47 70 

F 

3E0 


BC 

NZER0,*-4 

LOOP TIO UNTIL GET CCO 

0013E8 

18 C2 




LR 

GRC,GR2 

RESTORE ORIGINAL SIO ADDR 

0013EA 

47 FO 

F 

30C 


BC 

ALWAYS,SIOAOO 

GO TRY SIO AGAIN 

0013EE 

91 80 

F 

004 

SIODOO 

TM 

SNSW,X 1 80' 

BR IF SEC SS 00 IS 1 - LOOP SIO 

0013F2 

47 10 

F 

3BE 


BC 

ALLON,SIOCOA 

* t 

0013F6 

91 80 

F 

183 


TM 

SIQVR6,X*80 # 

BR IF INTERV REQ SW OFF 

0013 F A 

47 80 

F 

41A 


BC 

ALLOFF,SI0D01 

t, 

0013FE 

92 00 

F 

183 


MVI 

SI0VR6,X * 00' 

TURN OFF INTERV REQ SW 

001402 

91 FF 

D 

045 


TM 

HCSW85(GRD),X*FF• 

BR IF ANY CHAN STATUS 

001406 

47 50 

F 

41A 


BC 

ANYON,SI0D01 

» * 

00140A 

91 EB 

D 

044 


TM 

HCSW84(GRD),X*EB* 

BR TO SIO ROUTINE IF BSY 8 DE ONLY 

00140E 

47 50 

F 

41A 


BC 

ANYON,SI0D01 

» t 

001412 

91 14 

D 

044 


TM 

HC SW84(GRD),X*14® 

» * 

001416 

47 10 

F 

30C 


BC 

ALLON,SIOAOO 

» » 

00141A 

D2 02 

F 

18D F 180 

SI0D01 

MVC 

SI0MS289(3),SIQVR5 

SET I/O ADDR IN OUTPUT MESSAGE 

001420 

OA DD 




SVC 

X' DD' 

CONVERT CAW TO EBCDIC 

001422 

0004 




DC 

AL2(4) 

NO- OF HEX BYTES IN CAW 

001424 

0048 




DC 

AL2(CAW-SECST) 

HEX DATA ADDR 

001426 

0195 




DC 

AL2(SIQMS2817—SECST) 

EBCDIC ADDR IN OUTPUT MESSAGE 

001428 

D2 07 

F 

12C D 040 


MVC 

SI0VR3(8),HCSW(GRD) 

SAVE CSW 

00I42E 

OA DD 




SVC 

X * DD 1 

CONVERT CSW STATUS TO EBCDIC 

001430 

0002 




DC 

AL2(2) 

NO. OF STATUS BYTES 

001432 

0130 




DC 

AL2(SI0VR384-SECST) 

CSW STATUS ADDR 

001434 

01B1 




DC 

AL2(SIQMS2845-SECST) 

EBCDIC ADDR IN OUTPUT MESSAGE 

001436 

92 FI 

F 

1A4 


MVI 

SIQMS2832»X , F1* 

SET CC1 IN OUTPUT MESSAGE 

00143A 

91 02 

F 

130 


TM 

SI0VR384,X*02 8 

BR IF GOT UNIT CHECK 

00143E 

47 10 

F 

454 


BC 

ALLON,SIOEOO 

$$ 

001442 

OA DO 




SVC 

X * DO' 

GOT CC1 ON SIO - NO UC 

001444 

40 




DC 

X * 40 * 

PRINT PROG NO. PRIOR TO MESSAGE 





* 



TREAT AS ERROR 





* 



DO NOT CHAIN 





* 



DO NOT RESTORE 





* 



PRINT ON NORMAL OUTPUT DEVICE 

001445 

31 




DC 

X * 31 * 

NO. OF CHAR IN MSG (49) 

001446 

F184 




DC 

AL2(SI0MS2—BASEGREG) 

MESSAGE ADDRESS 

001448 

91 FF 

F 

131 

SIDD02 

TM 

SI0VR385,X'FF * 

BR TO TIO IF GOT ANY CHAN STATUS 

00144C 

47 50 

F 

3BE 


BC 

ANYON,SIOCOA 

, , 

001450 

47 FO 

F 

30C 


BC 

ALWAYS,SIOAOO 

GO TRY SIO AGAIN 

001454 

45 30 

F 

494 

SIOEOO 

BAL 

GR3,SIOFOO 

GO DO SENSE OP 

001458 

OA DD 




SVC 

X * DD * 

CONVERT SENSE DATA TO EBCDIC 

00145A 

0001 




DC 

AL2(1) 

NO. OF SENSE BYTES 

00145C 

01F7 




DC 

AL2(SENSE-SECST) 

SENSE DATA ADDRESS 

00145E 

01BA 




DC 

AL2(SI0MS2854—SECST) 

EBCDIC ADDR IN OUTPUT MESSAGE 

001460 

91 40 

F 

1F7 


TM 

SENSE,X*40* 

BR IF GOT INTERV REQ 

001464 

47 10 

F 

472 


BC 

ALLON,SI0E01 

,, 

001468 

OA DO 




SVC 

X ® DO * 

GOT CC1 ON SIO - WITH UC 8 NO INV RQ 

00146A 

40 




DC 

X' 40 * 

PRINT PROG. NO PRIOR TO MESSAGE 





* 



TREAT AS ERROR 





* 



DO NOT CHAIN 





* 



DO NOT RESTORE 





« 



PRINT ON NORMAL OUTPUT DEVICE 

00146B 

38 




DC 

X' 38' 

56 CHARACTERS 

00146C 

F184 




DC 

AL2 (SI0MS2-BASE8REG) 

MESSAGE ADDRESS 

00146E 

47 FO 

F 

448 


BC 

ALWAYS,SI0D02 

GO TRU SIO AGAIN 

001472 

92 80 

F 

183 

SI0E01 

MVI 

SI0VR6,X* 80* 

TURN ON INTERV REQ SW 

001476 

OA DO 




SVC 

X * D 0 1 

GOT CC1 ON SIO - UC 8 INTERV REQ 

001478 

60 




DC 

X • 60 * 

PRINT PROG NO PRIOR TO MSG 





* 



TREAT AS ERROR 





* 



CHAIN 





* 



DO NOT RESTORE 





* 



PRINT ON NORMAL OUTPUT DEVICE 

001479 

38 




DC 

X ' 38 • 

NO. OF CHAR IN MSG (56) 

00147A 

F184 




DC 

AL2(SIQMS2-BASE8REG) 

MESSAGE ADDRESS 

00147C 

OA DO 




SVC 

X 1 DO' 

MAKE THIS UNIT RDY WITH BLANK CARDS 





* 



I/O ADDR IN GR 12 

00147E 

80 




DC 

X * 80* 

PRINT MESSAGE ONLY 


DO NOT TREAT AS ERROR 
00 NOT CHAIN 


DATE 

EC 


15JUL65 

124265 


17MAR66 

125643 


ID F804-1 
PAGE 3 


CGCCCCCCCCCCCCC© 



IBM MAINTENANCE 

DIAGNOSTIC PROGRAM 



P/N 840258 










PAGE 3A 

* F8041 

2821 SCAN/2540 

READER/PUNCH 




F8041 

CHANNEL 

REG FLT 

-ROUTINE 

OVERLAY 

01- 









« 



DO NOT RESTORE 







» 



PRINT ON NORMAL OUTPUT DEVICE 

00147F 

23 






DC 

X • 23 1 

NO. OF CHAR IN MSG (35) [ 

001480 

F73B 






DC 

AL2(SI0MS4-BASE8REG) 

MESSAGE ADDRESS 

001482 

58 50 

E 

198 



SI0E02 

L 

GR5,408(GRO*GRE) 

GET DM 10 SEC CONSTANT 

001486 

IE 55 






ALR 

GR5,GR5 

SET UP 20 SEC CONSTANT 

001488 

46 50 

F 

488 




BCT 

GR5, * 

20 SEC DELAY 

00148C 

96 01 

F 

14D 




01 

SI0SWS,X«01« 

TURN ON RESTART SECTION SW 

001490 

47 FO 

F 

30C 




BC 

ALWAYS,SIOAOO 

GO TRY SIO AGAIN 







* 

START 

I/O ROUTINE PERFORMS 

SENSE I/O HERE * 

001494 

D2 02 

F 

1CA 

F 

180 

SIOFOO 

MVC 

SI0MS389C 3),SI0VR5 

SET I/O ADDR IN OUTPUT MESSAGE 

00149A 

41 40 

F 

728 




LA 

GR4,SNSCCW 

SET UP SENSE CAW ' 

00149E 

50 40 

F 

048 




ST 

GR4,CAW 

11 

0014A2 

D2 00 

F 

048 

F 

14C 


MVC 

CAW(1),CAWKEY 

» 9 

0014A8 

OA DD 






SVC 

X' DD * 

CONVERT CAW TO EBCDIC 

0014AA 

0004 






DC 

AL2(4) 

NO. OF HEX BYTES IN CAW 

0014AC 

0048 






DC 

AL2(CAW-SECST) 

HEX DATA ADDR 

0014AE 

01D2 






DC 

AL2(SI0MS3817-SECST) 

EBCDIC DATA ADDR IN OUTPUT MESSAGE 

0014B0 

D2 03 

D 

048 

F 

048 

SI0F01 

MVC 

HCAW(4,GRD),CAW 

LOAD SENSE CAW 

0014B6 

9C 00 

C 

000 




SIO 

0 (GRC ) 

SENSE I/O 

0014BA 

45 40 

F 

4BE 




BAL 

GR4,*84 

SAVE CC 

0014BE 

91 80 

F 

004 




TM 

SNSW,X * 80® 

BR IF SEC SS 00 IS I - LOOP SIO 

0014C2 

47 10 

F 

564 




BC 

ALLON,SI0F08 

,, i 

0014C6 

50 40 

F 

138 




ST 

GR4,SI0VR7 

SAVE CC 1 

0014CA 

92 FO 

F 

1E1 




MVI 

SI0MS3832,X*F0® 

SET CCO IN OUTPUT MESSAGE 

0014CE 

91 30 

F 

138 




TM 

SI0VR7,X*30® 

BR IF GOT CCO j 

0014D2 

47 80 

F 

516 




BC 

ALLOFF,SI0F03 

11 1 

0014D6 

92 F3 

F 

1E1 




MVI 

SI0MS3832,X'F3* 

SET CC3 IN OUTPUT MESSAGE 

0014DA 

47 10 

F 

50C 




BC 

ALLON,SI0F02 

BR IF GOT CC3 

0014DE 

92 F2 

F 

1E1 




MVI 

SI0MS3832,X*F2* 

SET CC2 IN OUTPUT MESSAGE 

0014E2 

91 20 

F 

138 




TM 

SI0VR7,X*20* 

BR IF GOT CC2 

0014E6 

47° 10 

F 

50C 




BC 

ALLON,SI0F02 

$$ I 

0014EA 

92 FI 

F 

1E1 




MVI 

SI0MS3832,X'F1* 

SET CC1 IN OUTPUT MESSAGE 

0014EE 

D2 06 

F 

1E7 

F 

75E 


MVC 

SI0MS3838(7),SI0CN2 

SET UP OUTPUT MESSAGE 

0014F4 

D2 07 

F 

13C 

D 

040 


MVC 

SI0VR8(8),HCSW(GRD) 

SAVE CSW 

0014FA 

OA DD 






SVC 

X' DD * 

CONVERT CSW STATUS TO EBCDIC 

00I4FC 

0002 






DC 

AL2(2) 

NO. OF STATUS BYTES 

0014FE 

0140 






DC 

AL2(SIOVR884—SECST) 

CSW STATUS ADDRESS 

001500 

01EE 






DC 

AL2(SI0MS3845-SECST) 

EBCDIC ADDR IN OUTPUT MESSAGE 

001502 

OA DO 






SVC 

X 1 DO * 

GOT CC1 FOR SENSE I/O 

001504 

40 






DC 

X * 40 • 

PRINT PROG NO. PRIOR TO MESSAGE 







* 



TREAT AS ERROR 







* 



DO NOT CHAIN 







* 



DO NOT RESTORE f 







* 



PRINT ON NORMAL OUTPUT DEVICE 

001505 

31 






DC 

X * 31 * 

NO. OF BYTES IN OUTPUT MESSAGE (49) 

001506 

F1C1 






DC 

AL2(SI0MS3-BASE8REG) 

MESSAGE ADDRESS 

001508 

47 FO 

F 

564 




BC 

ALWAYS,SI0F08 

GO TRY SENSE I/O AGAIN 

00150C 

OA DO 





SI0F02 

SVC 

X * DO • 

GOT CC2 OR CC3 ON SENSE I/O 

00150E 

40 






DC 

X '40* 

PRINT PROG NO. PRIOR TO MESSAGE i 







* . 



TREAT AS ERROR 







* 



DO NOT CHAIN 







* 



DO NOT RESTORE 







* 



PRINT ON NORMAL OUTPUT DEVICE 

00150F 

21 






DC 

X' 21 1 

NO. OF BYTES IN OUTPUT MESSAGE (33) 

001510 

F1C1 






DC 

AL2(SI0MS3-BASE8REG) 

MESSAGE ADDRESS 

001512 

47 FO 

F 

564 




BC 

ALWAYS,SI0F08 

GO TRY SENSE I/O AGAIN 

001516 

D7 07 

F 

13C 

F 

13C 

SI0F03 

XC 

SI0VR8(8),SI0VR8 

CLEAR SENSE I/O CSW SAVE AREA 

00151C 

9D 00 

C 

000 




TIO 

O(GRC) 

TEST I/O 

001520 

47 40 

F 

52C 




BC 

CSWST,SI0F04 

BR IF CSW STORED ! 

001524 

47 70 

F 

51C 




BC 

NZER0,SI0F0386 

REPEAT TIO IF NOT CCO 

001528 

47 FO 

F 

532 




BC 

ALWAYS,SIOF05 

CONTINUE f 

00152C 

D6 07 

F 

13C 

D 

040 

SI0F04 

OC 

SI0VR8C8),HCSW(GRD) 

SAVE CSW 

001532 

91 FF 

F 

141 



SI0F05 

TM 

SI0VR885,X*FF* 

BR IF ANY CHANNEL STATUS 

001536 

47 50 

F 

54 A 




BC 

ANYON,SI0F06 

$$ 

00153A 

91 OC 

F 

140 




TM 

S10VR884,X•OC 1 

BR IF DID NOT GET CE 8 DE 

DATE 

15JUL65 


17MAR66 




ID F804-1 j 

EC 

124265 


125643 
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00153E 

001542 


0015EC 

0015EE 

0015F0 

0015F2 

0015F4 

0015F6 

0015F8 

0015FA 

0015FE 


47 CO 
91 F3 


54A 

140 


BC 

TM 


MIXNGN, SI0F06 
SI0VR8G4,X*F3* 


$$ 

RETURN IF DID NOT GET ANY OTHER 


DO NOT RESTORE 

PRINT ON NORMAL OUTPUT DEVICE 


; 001546 

47 80 F 55C 


BC 

ALLOFF,SI0F07 

UNIT STATUS 

001609 

36 



DC 

X 1 36' 

NO OF CHAR IN MSG (54) 

00154A 

OA DD 

SI0F06 

SVC 

X * DD' 

CONVERT CSW TO EBCDIC 

00160A 

F184 



DC 

AL2{SI0MS2—BASEGREG) 

MESSAGE ADDRESS 

\ 00154C 

0008 


DC 

AL2(8) 

NO. OF CSW BYTES 

I 00160C 

D2 06 

F 

1 BA F 769 

SIQI06 MVC 

SI0MS2£54(7),SI0CN2£11 

. SET UP OUTPUT MESSAGE 

! 00154E 

013C 


DC 

AL2(SIQVR8-SECST) 

SENSE CSW ADDRESS 

001612 

OA DD 



SVC 

X * DD' 

CONVERT SENSE BYTE TO EBCDIC 

i 001550 

01E7 


DC 

AL2(SI0MS3G38—SECST) 

EBCDIC ADDR IN OUTPUT 

MESSAGE 001614 

0001 



DC 

AL2(1) 

NO. OF SENSE BYTES 

001552 

OA DO 


SVC 

X • DO * 

GOT CCO FOR SENSE I/O 

BUT GOT 001616 

01F7 



DC 

AL2(SENSE—SECST) 

SENSE DATA ADDR 



* 



UNEXPECTED STATUS 

001618 

01BF 



DC 

AL2(SI0MS2G59—SECST) 

EBCDIC ADDR IN OUTPUT MESSAGE 

; 001554 

40 


DC 

X * 40 * 

PRINT PROG NO. PRIOR TO MESSAGE 00161A 

91 40 

F 

1F7 

TM 

SENSE,X«40* 

BR IF GOT INTERV REQ 



* 



TREAT AS ERROR 

00161E 

47 10 

F 

62C 

BC 

ALLON,SI0107 

, T 



* 



DO NOT CHAIN 

001622 

OA DO 



SVC 

X *00 * 

ERROR WITH UC £ NO INTERV REQ 



. * 



DO NOT RESTORE 

001624 

40 



DC 

X • 40 * 

PRINT PROG NO PRIOR TO MESSAGE 


PRINT ON NORMAL OUTPUT DEVICE 


TREAT AS ERROR 


001555 

36 




001556 

F1C1 



001558 

47 

FO 

F 

564 

00155C 

D2 

03 

F 

048 

001562 

07 

F3 



001564 

9D 

00 

C 

000 

001568 

47 

70 

F 

564 

00156C 

47 

FO 

F 

4B0 

001570 

91 

80 

F 

004 

001574 

47 

10 

F 

3BE 

001578 

D2 

07 

F 

12C 

00157E 

91 

20 

F 

14D 

001582 

47 

10 

F 

5DE 

001586 

D7 

01 

F 

1F8 

00158C 

9D 

00 

C 

000 

001590 

47 

40 

F 

59C 

001594 

47 

70 

F 

58 C 

001598 

47 

FO 

F 

5A6 

00159C 

D6 

01 

F 

1F8 

0015A2 

47 

FO 

F 

58C 

0015A6 

D2 

07 

F 

1 FA 

0015AC 

D6 

01 

F 

1FE 

0015B2 

91 

02 

F 

1FE 

0015B6 

47 

80 

F 

5C6 

0015BA 

45 

30 

F 

494 

0015BE 

91 

E5 

F 

1F7 

0015C2 

47 

50 

F 

5E4 

0015C6 

91 

FF 

F 

IFF 

0015CA 

47 

50 

F 

5E4 

0015CE 

91 

EO 

F 

1FE 

0015D2 

47 

50 

F 

5E4 

0015D6 

91 

OC 

F 

1FE 

0015DA 

47 

CO 

F 

5E4 

0015DE 

98 

19 

F 

104 

0015E2 

07 

FB 



0015E4 

D2 

02 

F 

18D 

0015EA 

OA 

DD 




F 128 


DC 

X • 36 * 

NO. OF BYTES IN OUTPUT MESSAGE (54) 



* . 


DO NOT CHAIN 

DC 

AL2(SI0MS3-BASE£REG) 

MESSAGE ADDRESS 



• 


DO NOT RESTORE 

BC 

ALWAYS,SI0F08 

GO TRY SENSE I/O AGAIN 



« 


PRINT ON NORMAL OUTPUT DEVICE 

MVC 

CAW(4),SI0VR2 

RESTORE ORIGINAL CAW 

001625 

3D 

DC 

X 1 3D * 

NO. OF CHAR IN MSG (61) 

BCR 

ALWAYS,GR3 

RETURN 

001626 

F184 

DC 

AL2(SI0MS2—BASEGREG) 

MESSAGE ADDRESS 

TIO 

O(GRC) 

TEST I/O 

001628 

47 FO F 30C 

BC 

ALWAYS,SIOAOO 

GO TRY SIO AGAIN 

BC 1 

NZERO,SI0F08 

REPEAT TIO IF NOT CC 0 

00162C 

OA DO 

SIO107 SVC 

X»DO* 

GOT CCO ON SIO - UC £ INTERV REQ 

BC 

ALWAYS,SI0F01 

REPEAT SENSE I/O 

00162E 

60 

DC 

X*60* 

PRINT PROG NO PRIOR TO MESSAGE 


D 040 


F 1F8 


0 044 


12C 

1F8 


0004 
0048 
0195 
OA DD 
0008 
01FA 
01AA 
92 FO 
91 02 


1A4 

1FE 


«*********************«********««*«*«*•«********##*•*««««*»****»»•*«»«.» 
* START I/O INTERRUPT ROUTINE * 

****»*•*»**•«*****•****•****••*•*•***********•*•********»»***#**#*»«»*» 

BR IF SS 00 IS 1 - LOOP SIO 

SAVE CSW 

BR IF RET TO PROG SW3 ON 

CLEAR 2ND STATUS SAVE AREA 
TEST I/O 
BR IF CC1 

REPEAT TIO IF NOT CCO 
CONTINUE 
SAVE 2ND STATUS 
REPEAT TIO 

SET UP AGGRAVATE CSW 

* * 

BR IF DID NOT GET UC 
GO PERFORM SENSE I/O 

BR IF GOT COM REJ, BO PAR, OR IN REQ 
* » 

BR IF GOT ANY CHAN STATUS 

BR IF GOT ATT, SM, OR CUE 

BR IF DID NOT GET CE £ DE 

RESTORE GR1 THRU GR9 
RETURN TO PROG 
SET UP OUTPUT MESSAGE 
CONVERT CAW TO EBCDIC 
NO OF HEX BYTES IN CAW 
HEX DATA ADDR 

EBCDIC ADDR IN OUTPUT MESSAGE 
CONVERT AGGREGATE CSW TO EBCDIC 
NO OF HEX BYTES IN CAW 
HEX DATA ADDR 

EBCDIC ADDR IN OUTPUT MESSAGE 
SET CCO IN OUTPUT MESSAGE 
BR IF GOT UNIT CHECK 


SIOINT TM 
BC 
MVC 
TM 
BC 
XC 

SIOIOO TIO 
BC 
BC 
BC 

SIQI01 OC 
BC 

SI0I02 MVC 
OC 
TM 
BC 
BAL 
TM 
BC 

SIOI03 TM 
BC 
TM 
BC 
TM 
BC 

SI0I04 LM 
BCR 

SI0I05 MVC 
SVC 
DC 
DC 
DC 
SVC 
DC 
DC 
DC 
MVI 
TM 


SNSW,X *80* 

ALLON,SIOCOA 
SI0VR3(8),HCSW(GRD) 
SI0SWS,X'20* 

ALLON,SI0I04 
STATSV(2),STATSV 
O(GRC) 

CSWST,SIOI01 
NZERO,SIOIOO 
ALWAYS,SI0I02 
STATSV(2),HCSW£4(GRD) 
ALWAYS,SIOIOO 
C SWAG(8 >»C SWSAV 
CSWAG£4(2),STATSV 
CSWAGG4,X•02• 

ALLOFF,SI0I03 
GR3,SIOFOO 
SENSE,X«E5« 

ANYON,SI 01 05 
CSWAGG5,X ® FF • 

ANYON,SI0I05 
CSWAG£4,X®£0* 

ANYON,SI0I05 
CSWAG£4»X*0C • 

MI XNON,SIOI05 
GR1»GR9,SI0VR1 
ALWAYS,GRB 
SI0MS2G9C3),S10VR5 
X' DD ® 

AL2(4) 

AL2(CAW-SECST) 

AL2(SI0MS2G17-SECST) 

X ®DD ® 

AL2{8) 

AL2(CSWAG-SECST) 

AL 2(SIOMS2£38-SECST) 
SI0MS2£32,X*F0» 
CSWAG£4,X*02« 


001602 

47 10 F 60C 


BC 

ALLON,SI0IQ6 

» » 

| 001644 

80 


DC 

X 1 80' 

DO NOT TREAT AS ERROR 

001606 

OA DO 


SVC 

X • DO * 

ERROR W/0 UC 



• * 



DO NOT RESTORE 

001608 

40 


DC 

X'40* 

PRINT PROG NO. PRIOR TO MESSAGE 



* 



PRINT ON NORMAL OUTPUT DEVICE 



* 



TREAT AS ERROR 

001645 

2 A 


DC 

X • 2A' 

NO. OF CHAR IN MSG (42) 



* 



DO NOT CHAIN 

001646 

F770 


DC 

AL2(SCPRK2-BASEGREG) 

MESSAGE ADDRESS 


DATE 

EC 


15JUL65 

124265 


17MAR66 
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00162F 

001630 

001632 

001634 


001635 

001636 

001638 


00163E 

001642 


3D 

F184 
OA DO 

80 


23 

F73B 

47 FO F 482 




DC 

DC 

SVC 

DC 


DC 
DC 
BC 
**** 
UTIL I 


X • 3D • 

A L 2(S10MS2-BASE GREG) 
X *00* 

X • 80 • 


X • 2 3 * 

AL2(SI0MS4-BASEGREG) 

ALWAYS,SIOE02 
******************•*•••••**************** 
TY ROUTINE 


TREAT AS ERROR 
CHAIN 

DO NOT RESTORE 

PRINT ON NORMAL OUTPUT DEVICE 
NO. OF CHAR IN MSG (61) 

MESSAGE ADDRESS 

MAKE THIS UNIT RDY WITH BLANK CARDS 
I/O ADDR IN GR 12 
PRINT MESSAGE ONLY 
DO NOT TREAT AS ERROR 
DO NOT CHAIN 
DO NOT RESTORE 

PRINT ON NORMAL OUTPUT DEVICE 
NO. OF CHAR IN MSG (35) 

MESSAGE ADDRESS 

GO TIME OUT £ TRY SIO AGAIN 

•«*»»*«••*••*•*•* 


00163E 


90 9C F OFO 
OA DO 


SCPROO 

SCPR10 


ORG 

STM 

SVC 


*£2 

GR9,GRC, 
X ‘DO* 


SCPRK1 


ENTER SCOPE LOOP 
OP IN GR 10 - BYTE 2 
CCW FLAGS IN GR 10 - 


SAVE GR9 THRU GR12 
PRESS CONSOLE STOP, 

1. ENTER 

2. ENTER 
BYTE 3- 

BIT 0 
BIT 
BIT 
BIT 
BIT 

3. ENTER 
GR 11 - BYTES 0 THRU 3 
ENTER CCW COUNT IN GR 12 - 
BYTES 0 AND 1 
ENTER U/0 ADDR IN GR 12 - 
BYTE 2, BITS 5-6-7, AND BYTE 3 
SET SEC SS 00 TO 1 TO LOOP 
OR SET TO ZERO FOR 1 PASS 
PRESS CONSOLE START 
TO EXIT THIS RTN PRESS CONSOLE 
STOP,£ SET SEC SS 00 £ XX TO 0 


1 
2 
3 
5 

DATA 


NOT USED 
NOT USED 
SILI 
SKIP 

NOT USED 
FIELD CONTENTS 


IN 


4. 


7. 

8 . 


DATE 

EC 


15JUL65 

124265 


17MAR66 

125643 
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O O 
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001648 

58 

CO 

F 

730 



L 

GRC,SCPRK3 

SET GR 12 TO ALL ONES 



00164C 

55 

CO 

F 

730 



SCPR20 CL 

GRC,SCPRK3 

SEE IF GR 12 WAS ALTERED 


001650 

47 

80 

F 

668 



BC 

EQUAL,SCPR40 

BR IF NO 



001654 

91 

40 

F 

004 



TM 

SNSW,X'40 1 

BR IF SEC SS 01 IS 1 - 

USE SCOPE 

RTN 

001658 

47 

10 

F 

674 



BC 

ALLON,SCPR50 

» » 



00165C 

98 

9C 

F 

OFO 



SCPR30 LM 

GR9,GRC» SCPRK1 

RESTORE GR9 THRU GRC 



001660 

D2 

03 

F 

048 

F 

128 

MVC 

CAW(4)»SI0VR2 

RESTORE ORIG CAW 



001666 

07 

F8 





BCR 

ALWAYS,GR8 

RETURN TO PROGRAM 



001668 

91 

40 

F 

004 



SCPR40 TM 

SN SW,X 1 40 * 

BR IF SEC SS 01 IS 1 - 

USE SCOPE 

RTN 

00166C 

47 

10 

F 

64C 



BC 

ALLON,SCPR20 

t, 



001670 

47 

FO 

F 

65C 



BC 

ALWAYS,SCPR30 

RETURN TO PROGRAM 



001674 

50 

AO 

F 

100 



SCPR50 ST 

GRA,SCPRK4 

SET UP CCW 



001678 

D2 

00 

F 

0E8 

F 

102 

MVC 

SCPCCW{1),SCPRK4£2 




00167E 

92 

30 

F 

OEC 



MV I 

SCPCCWC4, X* 30 , ~ -' 

» # 



001682 

D4 

00 

F 

OEC 

F 

103 

NC 

SCPCCWC4(1 } ,SCPRK4C3 

* * 



001688 

50 

CO 

F 

100 



ST 

GRC,SCPRK4 

y * 



00168C 

D2 

01 

F 

OEE 

F 

100 

MVC 

SCPCCWC6I2),SCPRK4 

»* 



001692 

D5 

01 

F 

100 

F 

79A 

CLC 

SCPRK4C2),SCPRKA 

CHECK IF CCW COUNT OVER 

180 


001698 

47 

DO 

F 

6A2 



BC 

NHIGH,SCPR51 

BRANCH IF NOT 



00169C 

D2 

01 

F 

OEE 

F 

79A 

MVC 

SCPCCWC6I2),SCPRKA 

FORCE CCW COUNT TO 180 



0016A2 

50 

BO 

F 

100 



SCPR51 ST 

GRB,SCPRK4 

SET UP DATA FIELD 



0016A6 

D2 

03 

F 

234 

F 

100 

MVC 

SCPDATI4),SCPRK4 

y * 



0016AC 

D2 

AF 

F 

238 

F 

234 

MVC 

SCPDATC41176),SCPDAT 

« y 










**************************************** **•****••**••*•*•«»**•••******* 








* START 

I/O FOR UTILITY ROUTINE 


• 

0016B2 

41 

90 

F 

0E8 



SCPR70 LA 

GR9,SCPCCW 

Y Y 



0016B6 

50 

90 

F 

048 



ST 

GR9,CAW 

» Y 










* 


DO NOT CHAIN 



0016BA 

D2 

00 

F 

048 

F 

14C 

MVC 

CAW(1),CAWKEY 

Y , 



0016C0 

D2 

03 

D 

048 

F 

048 

SCPR80 MVC 

HCAW(4,GRD),CAW 

LOAD CAW 



0016C6 

9C 

00 

C 

000 



SIO 

0(GRC) 

START I/O 



0016CA 

9D 

00 

C 

000 



SCPR90 TIO 

O(GRC) 

TEST I/O 



0016CE 

47 

70 

F 

6CA 



BC 

NZERO,SCPR90 

REPEAT TIO IF NOT CCO 



0016D2 

91 

80 

F 

004 



TM 

SNSW,X* 80 * 

LOOP IF SEC SS 00 IS 1 

- SIO LOOP 


0016D6 

47 

10 

F 

6C0 



BC 

ALLON,SCPR80 

Y f 



0016DA 

91 

40 

F 

004 



TM 

SNSW,X*40• 

BR IF SEC SS 01 IS 1 - 

USE SCOPE 

RTN 

0016DE 

47 

10 

F 

642 



BC 

ALLON,SCPR10 

» t 



0016E2 

47 

FO 

F 

65C 



BC 

ALWAYS,SCPR30 

RETURN TO PROGRAM 




*********************************************************************** 
* ALL OVERLAYS BRANCH HERE AFTER EACH COMPLETE PASS * 

*********************************************************************** 


0016E6 

OA 

DO 



EXIT8Y 

SVC 

X * DO 1 

PRINT THAT THIS ROUTINE WAS BYPASSED 

0016E8 

80 





DC 

X * 80 1 

,, NORMAL OUTPUT 

0016E9 

10 





DC 

X'10* 

,, 16 CHARACTERS 

0016EA 

F79D 




DC 

AL2(EXMSG-BASEDREG) 

,, ADDRESS OF MESSAGE 

0016EC 

91 

40 

F 

004 

EXIT 

TM 

SNSW,X*40* 

SEE IF SEC SS 01 IS 1—USE SCOPE RTN 

0016F0 

47 

80 

F 

6F8 


BC 

ALL0FF,*£8 

BR IF NO 

0016F4 

45 

80 

F 

63E 


BAL 

GR8,SCPROO 

BR TO UTILITY RTN 

0016F8 

91 

20 

E 

1 A3 


TM 

419{GRE),X * 20' 

SEE IF DM SS 26 IS 1 - CYCLE SECTION 

0016FC 

47 

10 

F 

71C 


BC 

ALLON,EXIT2 

BR IF YES 

001700 

41 

00 

F 

720 


LA 

GRO,RSCCW 

LOAD ADDR OF DIAG CK RD CCW IN CAW 

001704 

50 

00 

F 

048 


ST 

GRO*CAW 

Y » 

001708 

48 

CO 

F 

0E2 


LH 

GRC,UN1ADR 

SET READER ADDRESS IN GR 12 

00170C 

92 

02 

F 

14D 


MVI 

SIOSWS,X'02• 

RESET SIO SWS -USE READER- 

001710 

45 

BO 

F 

2E8 


BAL 

GRB,SIO 

GO READ 

001714 

OA 

DB 



EXIT1 

SVC 

X * DB' 

BYPASS DATA CARDS 

001716 

0234 




DC 

AL2(SCPDAT-SECST) 

LOAD ADDRESS FOR DATA RECORDS 

001718 

47 

FO 

F 

714 


BC 

ALWAYS,EXIT1 

CONTINUE READING DATA CARDS 

00171C 

OA 

D6 



EXIT2 

SVC 

X' D6' 

ROUTINE EXIT - READ IN NEXT RECORD 


*********************************************************************** 


* CCW-S USED BY RESIDENT ROUTINE * 

*********************************************************************** 

001720 C6 001234 2000 0003 RSCCW CCW X*C6*,SCPDAT,X'20*,3 DIAG CK RD CCW - SLI ON 

001728 04 0011F7 0000 0001 SNSCCW CCW X'04*,SENSE,X'00«,1 SENSE CCW 

***************** ******************************************** ********** 

* CONSTANTS FOR SCOPING ROUTINE - WORD BOUNDARY * 

*********************************************************************** 


DATE 

EC 


15JUL65 

124265 


17MAR66 

125643 
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* F8041 2821 SCAN/2540 READER/PUNCH 

F8041 CHANNEL REG FLT -ROUTINE OVERLAY 01- 


P/N 840258 
PAGE 6A 


000008 

000006 

000004 

000002 

000008 

000002 

000008 

000004 

000002 


EQUAL 

NEQUAL 

LOW 

HIGH 

ZERO 

GZERO 

AVAIL 

CSWST 

BUSY 


EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 


EQUAL 
NOT EQUAL 
LOW 
HIGH 
ZERO 

GREATER ZERO 
AVAILABLE 
CSW STORED 
BUSY 


00184E 00 

00184F 000000000000000000 
001858 000000000000000000 
001861 000000000000000000 
00186A 0000 


HCK DC 
LGAREA DC 


X*00* 
XL29'00* 


BIT 7 -ON- BIT ALWAYS ON 
LOG OUT DATA TABLE AREA 


i 5 - 

OOOOOF 

ALWAYS 

EQU 

15 UNCONDITIONL 0123 







* 


ROUTINE PREFIX 


00000D 

NOTBSY 

EQU 

13 NOT BUSY 01 3 







, * 



'i 

000007 

NZERO 

EQU 

7 NOT CC 0 123 







* 


ROUTINE 01 


000004 

NOTZRO 

EQU 

4 NOT ZERO -AND- 1 


00186C 






CNOP 

0 y 4 


OOOOOC 

MIXNON 

EQU 

12 MIXED OR NONE 0 1 


00186C 

01 




RTN01 

DC 

XL 1'01 * 


OOOOOD 

NHIGH 

EQU 

13 NOT HIGH 01 3 


00186D 

00 





DC 

XL1*0* 



*********************************************************************** 1 

00186E 

FFFE 




DC 

X*FFFE' 


0017D0 


ORG 

SECSTC2000 


! 001870 

IB 

DD 



INITOO 

SR 

GRDyGRD 

: 


*••***4 

*«»**< 



001872 

91 

40 

E 

196 


TM 

406 (14),X*40* 



* 



* 

001876 

47 

80 

F 

87C 


BC 

ALL0FFy*£6 

I 


* 


OVERLAY ROUTINE 

* 

00187A 

18 

DF 




LR 

GRDyGRF 

I " 


*********************************************************************** 

00187C 

91 

02 

F 

004 


TM 

SNSWy X *02 * 

1 


* 


VARIABLE FIELDS FOR CHANNEL REGISTER TEST 

* 

001880 

47 

80 

F 

88A 


BC 

ALLOFF,INITIO 

j 


*********************************************************************** 

001884 

OA 

DO 




SVC 

X • DO * 

.] 


* 

VARIABLES - NO BOUNDARY 

* . 

001886 

80 





DC 

X • 80 • 



*********************************************************************** 

001887 

IF 





DC 

X • IF • 

0017D0 

000000 

CKRDAR 

DC 

XL3•0* CHECK READ DATA BYTES 


001888 

FD1C 




DC 

AL2(TITLE1-BASECREG) 

0017D3 

000000000000000000 

HOTBIT 

DC 

XL9•0• AREA TO SAVE WHICH POSITIONS ARE 

HOT 






■* 



0017DC 

00 

HOTRD 

DC 

X'OO* AREA TO STORE HOT BITS 


00188A 

IB 

00 



INITIO 

SR 

GROyGRO 

0017DD 

00 

TSTCHR 

DC 

X«00* TEST CHAR POSITION -LOOK FOR HOT 

BIT 

00188C 

91 

10 

E 

180 


TM 

384(14),X*10* 

0017DE 

00 

EXPECT 

DC 

X’OO* AREA TO TEST FOR EXPECTED BIT 


001890 

47 

80 

F 

89A 


BC 

ALLOFF,INIT20 

0017DF 

00 

TRBLE 

DC 

X*00* TROUBLE SWITCH-TURNED ON FOR ANY 

ERR 

001894 

09 

OF 




ISK 

GROyGRF 



* 




001896 

42 

00 

F 

14C 


STC 

GROyCAWKEY 

0017E0 

800000000000000000 

D AT AO 

DC 

X*80000000000000000000* DATA REGO BIT 


00189A 

OA 

DD 



1NIT20 

SVC 

X' DD' 

0017E9 

00 





00189C 

0002 




DC 

AL2(2) 

0017EA 

400000000000000000 

DATA1 

DC 

X*40000000000000000000• DATA REG 1 BIT 


00189E 

00E2 




DC 

AL2(UN1ADR—SECST) 

0017F3 

00 





0018A0 

022C 




DC 

AL2(UARD-l-SECST) 

0017F4 

200000000000000000 

DATA2 

DC 

X*20000000000000000000* DATA REG 2 BIT 


0018A2 

OA 

DD 




SVC 

X • DD' 

0017FD 

00 





0018A4 

0002 




DC 

AL2(2) 

0017FE 

100000000000000000 

DATA3 

DC 

X*10000000000000000000* DATA REG 3 BIT 


0018A6 

00E6 




DC 

AL2(UN2ADR—SECST) 

001807 

00 





0018A8 

0230 




DC 

AL2(UAPU-1—SECST) 

001808 

080000000000000000 

DAT A4 

DC 

X*08000000000000000000* DATA REG 4 BIT 







* 



001811 

00 










« 



001812 

040000000000000000 

DATA5 

DC 

X*04000000000000000000* DATA REG 5 BIT 


0018AA 

92 

00 

F 

79C 


MV I 

SCHNUM,X•00 * 

0018 IB 

00 





0018AE 

91 

40 

F 

004 


TM 

SNSW,X *40• 

00181C 

020000000000000000 

DAT A6 

DC 

X*02000000000000000000* DATA REG 6 BIT 


0018B2 

47 

80 

F 

8BA 


BC 

ALLOFF,DATAOO 

001825 

00 





0018B6 

45 

80 

F 

63E 


BAL 

GR8,SCPROO 

001826 

010000000000000000 

DATA? 

DC 

X*01000000000000000000' DATA REG 7 BIT 


0018BA 

IB 

CC 



DATAOO 

SR 

GRCyGRC 

00182F 

00 





0018BC 

48 

CO 

F 

0E6 


LH 

GRC,UN2ADR 

001830 

000000000000000000 

DATAB 

DC 

X'OOOOOOOOOOOOOOOOOOOO* DATA REG NO BITS 


0018C0 

41 

00 

F 

DIO 

DATA05 

LA 

GROyADRCCW 

001839 

00 





0018C4 

50 

00 

F 

048 


ST 

GROyCAW 

00183A 

000000000000000000 

DATAX 

DC 

X'OOOOOOOOOOOOOOOOOOOO* DATA REG EXTRA -FOR PUNCH CKS 

0018C8 

92 

00 

F 

140 


MVI 

SI0SWS,X*00* 

001843 

00 





0018CC 

45 

BO 

F 

2E8 


BAL 

GRBySIO 



* ■ 


AREA FOR WORKING ON DATA 


0018D0 

95 

14 

F 

133 


CLI 

CSWSAVC7,X*14* 



* 




0018D4 

47 

60 

F 

C92 


BC 

NEQUAL yADRCHK 

001844 

00 

WRITE 

DC 

X*QO» WRITE AREA 







# 



001845 

00 

STAT1A 

DC 

X*00* 1ST STATUS AREA A 


0018D8 

41 

00 

F 

DIO 

DATA08 

LA 

GRO,ADRCCW 

001846 

00 

STAT1B 

DC 

X*00* 1ST STATUS AREA B 


0018DC 

50 

00 

F 

048 


ST 

GROyCAW 

001847 

00 

SENSEI 

DC 

X'OO® 1ST SENSE AREA 


0018E0 

48 

CO 

F 

0E2 


LH 

GRCyUNlADR 

001848 

00 

CKRD1 

DC 

X*00» 1ST CHECK READ AREA 


0018E4 

92 

02 

F 

14D 


MVI 

SIOSWS,X*02* 

001849 

00 

READ 

DC 

X*00* READ AREA 


0018E8 

45 

BO 

F 

2E8 


BAL 

GRBySIO 

00184A 

00 

STAT2 

DC 

X*00* . 2ND STATUS AREA 







» 



00184B 

00 

SENSE2 

DC 

X*00* 2ND SENSE AREA 


0018EC 

95 

14 

F 

133 


CLI 

CSWSAVC7,X*14* 

00184C 

00 

CKRD2 

DC 

X*00* 2ND CHECK READ AREA 


0018F0 

47 

60 

F 

C92 


BC 

NEQUAL,ADRCHK 

00184D 

00 

ERRSW 

DC 

X*00* ERROR SWITCHES 







■» 





• : 


BIT 6 -ON- BIT NOT TURN ON 


0018F4 

48 

CO 

F 

0E6 


LH 

GRC,UN2ADR 


DATE 

EC 


15JUL65 

124265 


17MAR66 

125643 


ID F804-1 
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DATE 

EC 


15JUL65 

124265 


17MAR66 

125643 


FULL WORD ALIGNMENT 
ROUTINE NUMBER 
FLAGS 

ADDRESS OF NEXT ROUTINE 

CLEAR REGISTER 13 
LOAD REG 13 WITH THE CONTENTS 
tt OF REG 15 IF RUNNING 
yy IN PROBLEM STATE 

IS TITLE PRINTOUT DESIRED 
BRANCH TO SKIP TITLE PRINT 
PRINT TITLE 
«« NORMAL OUTPUT 
yy 31 CHARACTERS 
y, ADDRESS OF TITLE 

CLEAR REGISTER 0 
IS STORAGE PROTECT ON SYSTEM 
BRANCH IF NOT 
PUT STOR KEY IN REG 0 
SAVE STOR KEY FOR PROGRAM USE 
CONVERT READER ADDRESS TO PRINT CHAR 
yy 2 BYTES 

yy ADDRESS OF READER ADDRESS 
yy ADDRESS OF PLACEMENT 
CONVERT PUNCH ADDRESS TO PRINT CHARS 
yy 2 BYTES 

,, ADDRESS OF PUNCH ADDRESS 
,y ADDRESS OF PLACEMENT 


SET UP SEARCH NUMBER TO ZEROS 
SEE IF SEC SS 01 IS 1—USE SCP RTN 
BR IF NO 

BR TO UTILITY ROUTINE 
CLEAR REGISTER 12 
LOAD PUNCH ADDR IN REG 12 
LOAD ADDR OF ADDRESS CHECK CCW 
STORE ADDR CK CCW ADDR IN CAW 
RESET SIO SWITCHES - SIO PUNCH 
GO TO START I/O ROUTINE 

IS CSW COUNT OK 

BRCH FOR ADDR CK IF CSW COUNT BAD 

LOAD ADDR OF ADDR CHECK CCW 
STORE ADDR CK CCW ADDR IN CAW 
LOAD READER ADDRESS IN REG 12 
RESET SIO SWITCHES - SIO READER 
GO TO START I/O ROUTINE 

IS CSW COUNT OK 

BRANCH FOR ADDR CK IF CSW COUNT BAD 
LOAD PUNCH ADDR IN REG 12 


ID F804-1 
PAGE 6A 
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* F8041 2821 SCAN/2540 READER/PUNCH 

F8041 CHANNEL REG FLT -ROUTINE OVERLAY 01- 


0018F8 

41 

90 

F 

7E0 



LA 

GR9,DATA0 

LOAD 1ST DATA GROUP ADDR IN REG 9 

0018FC 

D2 

09 

F 

844 

9 

000 

DATA10 MVC 

WRITE(10),0(9) 

SET A DATA GROUP IN WORK AREA 

001902 

41 

00 

F 

CF8 



LA 

GROt PWRCCW 

LOAD ADDRESS OF PUNCH WRITE CCW 

001906 

D7 

08 

F 

845 

F 

845 

XC 

STAT1AC9),STAT1A 

CLEAR WORK AREA EXCEPT WRITE DATA 

00190C 

D2 

00 

F 

845 

F 

844 

MVC 

WRITES1U) ,WRITE 

GENERATE 2 BYTES OF WRITE DATA 

001912 

50 

00 

F 

048 



ST 

GRO»CAW 

STORE PUNCH CCW ADDR IN CAW 

001916 

92 

00 

F 

14D 



MVI 

SI0SWS,X'00* 

RESET SIO SWITCHES -SIO PUNCH 

00191A 

45 

BO 

F 

2E8 



BAL 

GRB , SIO 

GO TO START I/O ROUTINE 

0019IE 

91 

01 

F 

14D 



TM 

SI0SWS,X'01* 

IS INTERVENTION REQ SWITCH SET 

001922 

47 

10 

F 

870 



BC 

ALLON,INITOG 

RESTART PROGRAM IF ON 

001926 

D2 

00 

F 

845 

F 

130 

MVC 

STAT1A(1),CSWSAVC4 

SAVE 1ST STATUS AT CHAN-END 

00192C 

D2 

00 

F 

846 

F 

1F8 

MVC 

STAT1B(1)»STATSV 

SAVE 1ST STATUS AT DEVICE-END 

001932 

D2 

00 

F 

847 

F 

1F7 

DATA20 MVC 

SENSEl(l),SENSE 

SAVE SENSE DATA AFTER PUNCH - WRITE 

001938 

45 

AO 

F 

988 



BAL 

GRA,DGCKRD 

GO DO DIAG CK READ TO PUNCH 

00193C 

D2 

00 

F 

848 

F 

7 DO 

MVC 

CKRD1(1)yCKRDAR 

SAVE CK RD DATA FROM PUNCH WRITE 

001942 

41 

00 

F 

DOO 



DATA30 LA 

GRO,RDCCW 

LOAD ADDRESS OF PUNCH READ CCW 

001946 

50 

00 

F 

048 



ST 

GROyCAW 

SET CCW ADDRESS IN CAW 

00194A 

92 

00 

F 

14D 



MVI 

SI0SWS,X«00» 

RESET SIO SWITCHES -USE PUNCH- 

00194E 

45 

BO 

F 

2E8 



BAL 

GRB,SIO 

GO TO START I/O ROUTINE 

001952 

91 

01 

F 

14D 



TM 

SIOSWS,X»01« 

IS INTERVENTION REQ SWITCH ON 

001956 

47 

10 

F 

870 



BC 

ALLONyINITOO 

RESTART PROGRAM IF ON 

00195A 

D2 

00 

F 

84A 

F 

130 

MVC 

STAT2I1),CSWSAV£4 

SAVE STATUS FROM PUNCH BUFFER READ 

001960 

D2 

00 

F 

84B 

F 

1F7 

MVC 

SENSE211) , SENSE 

SAVE SENSE DATA AFTER PUNCH READ 

001966 

45 

AO 

F 

988 



BAL 

GRA,DGCKRD 

GO DO DIAG CK READ TO PUNCH 

00196A 

D2 

00 

F 

84C 

F 

7 DO 

MVC 

CKRD2(1)yCKRDAR 

SAVE CK RD DATA AFTER PUNCH-READ 

001970 

D2 

09 

9 

000 

F 

844 

DATA40 MVC 

0(10,9)yWRITE 

MOVE DATA FROM WORK AREA TO GROUP 

001976 

41 

99 

0 

OOA 



LA 

GR9,10(9,0) 

UPDATE REG 9 BY 10 

00197A 

41 

00 

F 

844 



LA 

GRO,DATAXC10 

SET REG 0 TO MAX COUNT 

00197E 

15 

90 





CLR 

GR9,GR0 

ALL DATA ACCUMULATED 

001980 

47 

60 

F 

8FC 



BC 

NEQUAL,DATA10 

GO GET NEXT DATA GROUP 

001984 

47 

FO 

F 

9EA 



BC 

ALWAYS,CRCKOO 

GO ANALIZE DATA FOR CHANNEL CHECK 








* 

ROUTINE TO DO DIAG CK 

READ 

001988 

41 

00 

F 

D08 



DGCKRD LA 

GRO,CRDCCW 

LOAD ADDR OF DIAG CK RD CCW 

00198C 

50 

00 

F 

048 



ST 

GR0,CAW 

STORE ADDR OF CCW IN CAW 

001990 

91 

02 

F 

14D 



TM 

S10 SWS,X * 02 * 

IS READER CK RD WANTEO 

001994 

48 

CO 

F 

0E6 



LH 

GRC,UN2ADR 

SET UP ADDRESS OF PUNCH 

001998 

47 

80 

F 

9A0 



BC 

ALLOFF,* 88 

BRANCH IF NOT READER 

00199C 

48 

CO 

F 

0E2 



LH 

GRC,UN 1ADR 

SET UP ADDRESS OF READER 

0019AO 

D2 

02 

F 

7D0 

F 

D54 

MVC 

CKRDAR(3),CLEAR 

RESET DIAG CHECK READ AREA 

0019A6 

94 

FD 

F 

14D 



N I 

S10 SWS,X'FD 1 

RESET SIO SWITCHES EXCEPT READ-PUNCH 

0019AA 

45 

BO 

F 

2E8 



BAL 

GRB,SIO 

GO TO START I/O ROUTINE 

0019AE 

91 

01 

F 

14D 



TM 

SlOSWSyX'Ol* 

IS INTERVENTION REQ SW ON 

0019B2 

47 

10 

F 

870 



BC 

ALLON,INI TOO 

RESTART PROG IF ON 

0019B6 

91 

FF 

F 

7D2 



TM 

CKRDARC2,X * FF * 

WAS DATA TRANSFERRED 

0019BA 

47 

10 

F 

9C2 



BC 

ALLON,DGCK10 

BRANCH IF NOT OK 

0019BE 

47 

FO 

F 

9E8 



BC 

ALWAYS,RETNCR 

BRANCH IF OK 

0019C2 

91 

FF 

F 

7D1 



DGCK10 TM 

CKRDARC1,X * FF• 

WAS DATA TRANSFERRED 

0019C6 

47 

10 

F 

9E8 



BC 

ALLON,RETNCR 

BRANCH IF OK 

0019CA 

D2 

02 

F 

212 

F 

231 

MVC 

MESS1C16(3)yUAPU 

SET PUNCH ADDRESS IN MESSAGE 

0019D0 

91 

02 

F 

14D 



TM 

SIOSWS,X *02' 

IS READER BEING USED 

0019D4 

47 

80 

F 

9DE 



BC 

ALLOFF,*810 

BRANCH IF NOT READER 

0019D8 

D2 

02 

F 

212 

F 

22D 

MVC . 

ME SS1816(3),UARD 

SET READER ADDRESS IN MESSAGE 

0019DE 

OA 

DO 





SVC 

X • DO * 

PRINT DIAG CR RD MESSAGE 

0019E0 

44 






DC 

X * 44 1 

,, ERROR MESSAGE 

0019E1 

2B 






DC 

X * 2B ’ 

,, 43 CHARACTERS 

0019E2 

F202 





DC 

AL2(MESS1—BASE8REG) 

,, ADDRESS OF MESSAGE 

0019E4 

47 

FO 

F 

8FC 



BC 

ALWAYS,DATA10 

GO RESTART DATA GROUP 

0019E8 

07 

FA 





RETNCR BCR 

ALWAYS,GRA 

RETURN TO OTHER ROUTINE 


ROUTINE TO ANALYZE CHANNEL REGISTER 


DATE 

EC 


15JUL65 17MAR66 

124265 125643 


ID F804-1 
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* F8041 

2821 SCAN/2540 READER/PUNCH 



| 

F8041 

CHANNEL 

REG FLT -ROUTINE 

OVERLAY 

01- 



0019EA 

41 

90 

F 

7E0 

CRCKOO 

LA 

GR9,DATAO 

LOAD 1ST DATA GROUP ADDR IN REG 9 [ 

0019EE 

92 

00 

F 

7DF 


MVI 

TRBLE,X * 00 ' 

RESET TROUBLE SWITCH | 

0019F2 

41 

00 

F 

839 


LA 

GRO,DATA7819 

SET UP MAXIMUM COUNT 

0019F6 

41 

10 

F 

7E9 


LA 

GR1,DATA089 

INITIALIZE INDEX 1 TO START OF GROUP | 

0019FA 

92 

00 

1 

000 

CRCK05 

MVI 

0(GR1),X•00 1 

RESET DATA GROUP ERROR SWITCHES 1 

0019FE 

41 

11 

0 

OOA 


LA 

GR1,10(GR1,0) 

UPDATE INDEX BY 10 

001A02 

15 

10 




CLR 

GR1,GRO 

CHECK IF ALL GROUPS RESET j 

001A04 

47 

60 

F 

9FA 


BC 

NEQUAL,CRCK05 

GO RESET NEXT GROUPS SWITCHES ! 

001A08 

92 

00 

F 

84E 


MVI 

HCK,X'00• 

TURN OFF HOT CHECK SWITCH j 

001 AOC 

D2 

09 

F 

844 9 000 

CRCK10 

MVC 

WRITE(IO),0(9) 

GET A DATA GROUP FOR ANALYSIS 

001A12 

47 

FO 

F 

ABA 


BC 

ALWAYS,CRCK35 

GO SEE IF CHECKED FOR HOT BITS ! 

Q01A16 

91 

02 

F 

848 

CRCK11 

TM 

CKRD1,X'02• 

WAS XLATE CHECK ON WITH PCH WRITE | 

001A1A 

47 

10 

F 

AEE 


BC 

ALLON,CRCK80 

BRANCH IF ON 

001A1E 

91 

02 

F 

84C 

CRCK20 

TM 

CKRD2,X•02• 

WAS XLATE CK ON WITH PUNCH READ 

001A22 

47 

10 

F 

AEE 


BC 

ALLON,CRCK80 

BRANCH IF ON 

001A26 

D2 

00 

F 

7DE F 844 

CRCK30 

MVC 

EXPECT(l),WRITE 

SET EXPECTED BIT IN TEST AREA 

001A2C 

D4 

GO 

F 

7DE F 849 


NC 

EXPECT(1),READ 

TEST IF BIT READ AS EXPECTED 

001A32 

47 

80 

F 

AB2 


BC 

ZER0,CRCK50 

BRANCH IF NOT OK 

001A36 

47 

FO 

F 

BOE 


BC 

ALWAYS,CRCK90 

CONTINUE 

001 A3A 

91 

FF 

F 

84E 

CRCK35 

TM 

HCK,X *FF' 

SEE IF CHECKED FOR HOT BITS YET j 

00IA3E 

47 

10 

F 

A16 


BC 

ALLON,CRCK11 

,, BRCH IF YES 

001A42 

92 

FF 

F 

84E 


MVI 

HCK,X * FF * 

TURN ON HOT CHECK SWITCH 

001A46 

41 

80 

0 

001 


LA 

GR8,1(0,0) 

INITIALIZE HOT BIT CHECK ROUTINE 

001A4A 

41 

70 

0 

080 


LA 

GR7,128(0,0) 

t * 

001A4E 

41 

10 

F 

826 


LA 

GR1,DATA7 

v t 

001A52 

41 

20 

F 

826 

CRCK38 

LA 

GR2,DATA7 

t i 

001A56 

96 

01 

1 

009 


01 

9(GR1),X * 01 ® 

TURN ON HOT BIT SWITCH 

001A5A 

44 

80 

F 

A9E 


EX 

GR8,CRCK41 

SEE IF HOT BIT 

001A5E 

47 

80 

F 

A72 


BC 

ALLOFF,CRCK39-4 

,, BRCH IF NO 

001A62 

44 

80 

F 

AAA 


EX 

GR8,CRCK43 

SEE IF HOT BIT 

001A66 

47 

80 

F 

A72 


BC 

ALLOFF,CRCK39-4 

,, BRCH IF NO 

001A6A 

44 

80 

F 

AAE 


EX 

GR8,CRCK44 

SEE IF HOT BIT 1 

001A6E 

47 

10 

F 

A88 


BC 

ALLON,CRCK40 

,, BRCH IF YES 1 

001A72 

94 

FE 

1 

009 


NI 

9(GR1),X* FE• 

TURN OFF HOT BIT SWITCH | 


j 001A76 

15 

87 



CRCK39 

CLR 

GR8,GR7 

SEE IF END ! 

001A78 

47 

80 

F 

A16 


BC 

EQUAL,CRCK11 

,, BRCH IF YES 

001A7C 

41 

88 

8 

000 


LA 

GR8,0(GR8,GR8) 

SET UP TO TEST FOR NEXT BIT 

001A80 

5B 

10 

F 

D18 


S 

GR1,TEN 

* ’ 

| 001A84 

47 

FO 

F 

A52 


BC 

ALWAYS,CRCK38 

» * 

! 00IA88 

41 

70 

F 

7 EO 

CRCK40 

LA 

GR7,DATAO 

SEE IF END | 

1 001A8C 

15 

72 




CLR 

GR7,GR2 

t * ■ 

| 001A8E 

41 

70 

0 

080 


LA 

GR7,128(0,0) 

r , 

1 001A92 

47 

80 

F 

AA2 


BC 

EQUAL,CRCK42 

,, BRCH IF YES 

! 001A96 

5B 

20 

F 

D18 


S 

GR2,TEN 

SET UP FOR NEXT DATA GROUP 1 

j 001A9A 

47 

FO 

F 

A56 


BC 

ALWAYS,CRCK38&4 

CONTINUE j 

1 001A9E 

91 

00 

2 

005 

CRCK41 

TM 

5(GR2),X»00« 

i 

] 001AA2 

96 

01 

F 

7DF 

CRCK42 

01 

TRBLE,X'Ol* 

TURN ON TROUBLE SWITCH 

1 001AA6 

47 

FO 

F 

A76 


BC 

ALWAYS,CRCK39 

i 

! 001AAA 

91 

00 

2 

004 

CRCK43 

TM 

4( GR2),X*00« 

1 

! 001AAE 

91 

00 

2 

008 

CRCK44 

* 

TM 

8(GR2),X*00 # 

1 

8 001AB2 

41 

70 

0 

008 

CRCK50 

LA 

GR7,8(0,0) 

SET REG 7 TO NO. OF GROUPS 

ij 001AB6 

41 

80 

F 

7E5 


LA 

GR8,DATA0£5 

LOAD 1ST GROUP ADDR IN INDEX REG 8 

,1 001 ABA 

95 

00 

8 

000 

CRCK51 

CLI 

0(8),X*00* 

WERE ANY BITS READ FOR THIS GROUP ; 

001ABE 

47 

60 

F 

ACE 


BC 

NEQUAL,CRCK55 

BRANCH IF BITS READ ; 

:S ooiac2 

41 

88 

0 

OOA 


LA 

GR8,10(8,0) 

UPDATE INDEX REG 8 BY 10 

II 001AC6 

46 

70 

F 

ABA 


BCT 

GR7,CRCK51 

BRANCH IF ALL GROUPS NOT CHECKED 

001 AC A 

47 

FO 

F 

B50 

# 

BC 

ALWAYS,ALZ015 

BRANCH TO ERROR MESSAGE-ALL BITS OFF \ 

001ACE 

91 

04 

F 

848 

* 

CRCK55 

TM 

CKRD1,X«04« 

DID PARITY CHECK OCCUR WHILE WRITING I 

001AD2 

47 

10 

F 

BOE 


BC 

ALLON,CRCK90 

BRANCH IF ON TO GET NEXT DATA GROUP ! 

001AD6 

91 

04 

F 

817 


TM 

DATA5C5,X* 04* 

WAS 5 BIT READ WHEN EXPECTED | 

i DATE 

15JUL65 


17MAR66 




ID F804-1 

jj EC 

124265 


125643 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


* F8Q41 2821 SCAN/2540 READER/PUNCH 


j F8041 

CHANNEL 

REG FLT -ROUTINE 

OVERLAY 

01- 

5 001ADA 

47 

10 

F 

AE6 


BC 

| 001ADE 

91 

04 

F 

844 


TM 

] 001AE2 

47 

80 

F 

BOE 


BC 

S 001AE6 

96 

02 

F 

84D 

CRCK60 

01 

001AEA 

j 

47 

FO 

F 

BOA 

* 

BC 

001AEE 

91 

02 

F 

844 

* 

CRCK80 

TM 

001AF2 

47 

10 

F 

AFE 


BC 

001AF6 

91 

02 

F 

849 


TM 

001AFA 

47 

80 

F 

BOE 


BC 

001AFE 

91 

01 

F 

825 

CRCK81 

TM 

001B02 

47 

80 

F 

BOE 


BC 

001B06 

47 

FO 

F 

BOA 


BC 

001BOA 

96 

01 

F 

7DF 

CRCK86 

01 

j 001 BOE 

D2 

00 

9 

009 F 84D 

CRCK90 

MVC 

j 001B14 

41 

99 

0 

OOA 


LA 

1 001B18 

41 

00 

F 

830 


LA 

001B1C 

15 

90 




CLR 

001B1E 

47 

60 

F 

AOC 


BC 

001B22 

47 

FO 

F 

B26 

« 

BC 

001B26 

91 

01 

F 

7DF 

* 

ALZOOO 

TM 

001B2A 

47 

10 

F 

B32 


BC 

001B2E 

47 

FO 

F 

CAO 

* 

BC 

001B32 

41 

00 

F 

839 

• 

ALZ005 

LA 

001B36 

92 

FF 

F 

79C 


MVI 

001B3A 

41 

10 

F 

7E9 


LA 

001B3E 

91 

02 

1 

000 

ALZ010 

TM 

001B42 

47 

80 

F 

B5A 


BC 

001B46 

41 

11 

0 

OOA 


LA 

001B4A 

15 

10 




CLR 

001B4C 

47 

60 

F 

B3E 


BC 

001B50 

OA 

DO 



ALZ015 

SVC 

001B52 

44 





DC 

001B53 

07 





DC 

001B54 

FD57 




DC 

001B56 

47 

FO 

F 

CAO 

* 

BC 

001B5A 

41 

10 

F 

7E9 

* 

ALZ 020 

LA 

001 BSE 

91 

01 

1 

000 

ALZ021 

TM 

001B62 

47 

80 

F 

B74 


BC 

001B66 

41 

11 

0 

OOA 


LA 

001B6A 

15 

10 




CLR 

001B6C 

47 

60 

F 

BSE 


BC 

001B70 

47 

FO 

F 

B84 


BC 

001B74 

91 

FF 

F 

835 

ALZ025 

TM 

001B78 

47 

CO 

F 

B8E 


BC 

001B7C 

91 

10 

F 

83D 


TM 

001B80 

47 

10 

F 

B8E 


BC 

001B84 

OA 

DO 



ALZ028 

SVC 

001B86 

44 





DC 

001B87 

07 





DC 

001B88 

FD5E 




DC 

001B8A 

47 

FO 

F 

CAO 


BC 

DATE 

15JUL65 


17MAR66 



i EC 

124265 


125643 




P/N 840258 
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ALLON »CRCK60 

WRITE,X'04» 
ALLOFF,CRCK90 

ERRSW,X'02' 
ALWAYS,CRCK86 


WRITE,X*02« 
ALLON,CRCK81 
READ,X * 02• 
ALLOFF,CRCK90 
DATA6&9,X *01• 
ALLOFF,CRCK90 
ALWAYS,CRCK86 
TRBLE,X*01* 

9(1,9),ERRSW 
GR9,10(GR9,0) 
GR0,DATA7£1Q 
GR9,GR0 
NEQUAL,CRCK10 
ALWAYS,ALZOOO 


TRBLE,X'01 * 
ALLON,ALZ005 
ALWAYS,EXIT01 


BRANCH IF YES 


IS 5 BIT BEING CHECKED 
BRANCH IF NO 


TURN ON -NO BIT SET- SWITCH 
GO TURN ON TROUBLE FOUND SWITCH 


WAS A 6 BIT EXPECTED AS DATA 
BRANCH IF EXPECTED 
WAS A 6 BIT READ BACK 
BRANCH IF NOT READ 
SEE IF HAVE HOT CHAN REG 6 BIT 
,, BRCH IF NO 
GO TURN ON TROUBLE SWITCH 
TURN ON TROUBLE SWITCH 

RESTORE ERROR SWITCHES TO GROUP 

UPDATE INDEX REG 9 BY 10 

SET REG 0 TO MAX COUNT 

HAVE ALL DATA GROUPS BEEN CHECKED 

IF NOT, GO GET NEXT GROUP 

GO CHECK FOR ERRORS 


IS TROUBLE SWITCH ON 
BRANCH IF ON 
GO TO NEXT ROUTINE 


ROUTINE TO CHECK IF ALL BITS CANNOT TURN ON 


GR0,DATA7£19 
SCHNUM,X'FF * 

GR1,DATA0&9 
0(GR1),X * 02• 

ALLOFF,ALZ020 
GR1,10(GR1 ,0) 

GR1,GRO 
NEQUAL,ALZ010 

X • DO • 

X * 44' 

X • 07 * 

AL2(ERR030-BASEGREG) 
ALWAYS,EXIT01 


SET UP MAXIMUM COUNT 

SET UP TO BYPASS ALL REMAINING OVLYS 

INITIALIZE INDEX 1 TO START OF GROUP 

WAS BIT OFF SWITCH TURNED ON 

BRANCH IF OFF —NOT ALL BITS OFF— 

UPDATE INDEX BY 10 

ALL GROUPS CHECKED 

GO CHECK NEXT GROUP 

ERR 30 - ALL CHANNEL REGISTER BITS 
,, ARE ALWAYS OFF AND CANNOT 

,, BE TURNED ON 

, , 

GO TO NEXT ROUTINE 


ROUTINE TO CHECK IF ALL BITS ALWAYS ON 


GR1,DATA0£9 
0{GR1},X * 01 8 
ALLOFF,ALZ025 
GR1,10(GR1,01 
GR1,GRO 
NEQUAL,ALZ021 
ALWAYS,ALZ028 

DATAB£5,X # FF 8 
MXXN0N,ALZ030 

DATAXC3,X*10* 

ALLON,ALZ030 

X*D0* 

X * 44* 

X' 07* 

AL2(ERR031-BASEGREG) 
ALWAYS, EXITOl 


INITIAL INDEX 1 TO START OF GROUP 

WAS BIT HOT SWITCH TURNED ON 

BRANCH IF OFF—NOT ALL BITS HOT— 

UPDATE INDEX BY 10 

WERE ALL GROUPS CHECKED 

GO CHECK NEXT GROUP 

GO TO ERROR MESSAGE 031-ALL BITS ON 

WERE ALL BITS READ BACK FOR 00 
BRANCH IF ALL BITS NOT ON HOT 


WAS EQUIP CK ON FOR DATAB 
BRANCH IF ON 


- 00 - 


ERR 031 - ALL CHANNEL REG BITS ARE 
,, ALWAYS ON AND CANNOT BE 

,, TURNED OFF. 

GO*TO NEXT ROUTINE 


ID F804-1 
PAGE 8 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


* F8041 2821 SCAN/2540' READER/PUNCH 
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F8041 

CHANNEL 

REG FLT -ROUTINE 

OVERLAY 01- 


001B8E 

91 02 

F 

7E9 

» 

ALZ030 TM 

DATA0C9,X 1 02 1 

001B92 

47 80 

F 

BAO 

BC 

ALLOFF,ALZ032 

001B96 

OA DO 



SVC 

X * DO 1 

001B98 

44 



DC 

X * 44 * 

001B99 

07 



DC 

X * 07* 

001B9A 

FD65 



DC 

AL2(ERR032-BASECREG) 

001B9C 

47 FO 

F 

BAE 

BC 

ALWAYS,ALZ034 

001BAO 

91 01 

F 

7E9 

ALZ032 TM 

DATA0£9,X*01 1 

001BA4 

47 80 

F 

BAE 

BC 

ALLOFF,ALZ034 

001BA8 

OA DO 



SVC 

X • D 0 * 

001 BAA 

44 



DC 

X • 44 • 

001BAB 

07 



DC 

X»07» 

001BAC 

FD6C 



DC 

AL2(ERR033-BASE&REG) 

001BAE 

91 02 

F 

7F3 

ALZ034 TM 

DATA1G9,X»02 I 

001BB2 

47 80 

F 

BCO 

BC 

ALLOFF,ALZ036 

001BB6 

OA DO 



SVC 

X«DO' 

001BB8 

44 



DC 

X»44* 

001BB9 

07 



DC 

X • 07 • 

001BBA 

FD73 



DC 

AL2(ERR034-BASECREG) 

001BBC 

47 FO 

F 

BCE 

BC 

ALWAYS,ALZ040 

001BC0 

91 01 

F 

7F3 

ALZ036 TM 

DATA1G9,X *01 * 

001BC4 

47 80 

F 

BCE 

BC 

ALLOFF,ALZ040 

001BC8 

OA DO 



SVC 

X'DO* 

001BCA 

44 



DC 

X 1 44* 

001BCB 

07 



DC 

X * 07 • 

001BCC 

FD7A 



DC 

AL2(ERR035-BASECREG) 

001 BCE 

91 02 

F 

7FD 

ALZ040 TM 

DATA2£9,X *02• 

001BD2 

47 80 

F 

BEO 

BC 

ALLOFF,ALZ042 

001BD6 

OA DO 



SVC 

X * DO • 

001B08 

44 



DC 

X • 44 * 

001BD9 

07 



DC 

X • 07 1 

001BDA 

FD81 



DC 

AL2(ERR036-BASECREG) 

001BDC 

47 FO 

F 

BEE 

BC 

ALWAYS,ALZ044 

001BEO 

91 01 

F 

7FD 

ALZ042 TM 

DATA2C9,X•01• 

001BE4 

47 80 

F 

BEE 

BC 

ALLOFF,ALZ044 

001BE8 

OA DO 



SVC 

X • DO • 

001BEA 

44 



DC 

X • 44 * 

001BEB 

07 



DC 

X • 07 • 

001BEC 

FD88 



DC 

AL2(ERR037-BASECREG) 

001BEE 

91 02 

F 

807 

ALZ044 TM 

DATA3£9,X«02* 

001BF2 

47 80 

F 

COO 

BC 

ALLOFF,ALZ046 

001BF6 

OA DO 



SVC 

X * DO 1 

001BF8 

44 



DC 

X * 44* 

001BF9 

07 



DC 

X' 07* 

001BFA 

FD8F 



DC 

AL2(ERR038-BASEGREG) 

001BFC 

47 FO 

F 

COE 

BC 

ALWAYS,ALZ048 

001C00 

91 01 

F 

807 

ALZ046 TM 

DATA3C9,X 1 01• 

001C04 

47 80 

F 

COE 

BC 

ALLOFF,ALZ048 

001C08 

OA DO 



SVC 

X 1 DO 1 

001C0A 

44 



DC 

X * 44' 

001C0B 

07 



DC 

X' 07 * 

001C0C 

FD96 



DC 

AL2(ERR039-BASECREG) 

001C0E 

91 02 

F 

811 

ALZ048 TM 

DATA4C9,X•02' 

001C12 

47 80 

F 

C20 

BC 

ALLOFF,ALZ050 

001C16 

OA DO 



SVC 

X'DO* 

001C18 

44 



DC 

X * 44 • 

001C19 

07 



DC 

X • 07 • 

001C1A 

FD9D 



DC 

AL2(ERR040-BASECREG) 

001C1C 

47 FO 

F 

C2E 

BC 

ALWAYS,ALZ052 

001C20 

91 01 

F 

811 

ALZ050 TM 

DATA4C9,X•01• 

001C24 

47 80 

F 

C2E 

BC 

ALLOFF,ALZ052 

001C28 

OA DO 



SVC 

X'DO* 

001C2A 

44 



DC 

X*44* 

001C2B 

07 



DC 

X*07* 

DATE 

15JUL65 


17MAR66 



EC 

124265 


125643 




DID BIT 0 TURN ON 
BRANCH IF TURNED ON OK 
ERR 032 - CHANNEL REG 0 
,, TURN ON 

, , 

, , 


WAS BIT 0 ALWAYS ON 
BRANCH IF TURNED OFF OK 
ERR 033 - CHANNEL REG 0 BIT 
,, ALWAYS ON 

, , 


DID BIT 1 TURN ON 
BRANCH IF TURNED ON OK 
ERR 034 - CHANNEL REG 1 
,, TURN ON 


BIT DOES NOT 


IS 


BIT DOES NOT 


WAS BIT 1 ALWAYS ON 
BRANCH IF ABLE TO RESET BIT 1 
ERR 035 - CHANNEL REG 1 BIT IS 
, , ALWAYS ON 


DID BIT 2 TURN ON 
BRANCH IF TURNED ON OK 
ERR 036 - CHANNEL REG 2 
,, TURN ON 


BIT DOES NOT 


, , 

WAS BIT 2 ALWAYS ON 
BRANCH IF ABLE TO RESET BIT 2 
ERR 037 - CHANNEL REG 2 BIT IS 
,, ALWAYS ON 

, , 

11 

DID BIT 3 TURN ON 
BRANCH IF TURNED ON OK 
ERR 038 - CHANNEL REG 3 BIT DOES NOT 
,, TURN ON 


WAS BIT 3 ALWAYS ON 
BRANCH IF ABLE TO RESET BIT 
ERR 039 - CHANNEL REG 3 BIT 
, , ALWAYS ON 


3 

IS 


DID BIT 4 TURN ON 
BRANCH IF TURNED ON OK 
ERR 040 - CHANNEL REG 4 BIT DOES NOT 
, , TURN ON 


WAS BIT 4 ALWAYS ON 
BRANCH IF ABLE TO RESET BIT 4 
ERR 041 - CHANNEL REG 4 BIT IS 
*, ALWAYS ON 

11 


10 F804-1 

PAGE 6A 
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0 0 0 
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* F8041 2821 SCAN/2540 READER/PUNCH 

F8041 CHANNEL REG FLT -ROUTINE OVERLAY 01- 


001C2C 

FDA4 




DC 

AL2(ERR041-BASEGREG) 

, , 


001C2E 

91 02 

F 

81B 

ALZ052 

TM 

DATA5G9,X•02' 

DID BIT 5 TURN ON 


001C32 

47 80 

F 

C40 


BC 

ALLOFF *ALZ054 

BRANCH IF TURNED ON 


001C36 

OA DO 




SVC 

X' DO' 

ERR 042 - CHANNEL REG 5 BIT DOES 

NOT 

001C38 

44 




DC 

X' 44' 

,, TURN ON 


001C39 

07 




DC 

X' 07 • 

» * 


001C3A 

FDAB 




DC 

AL2(ERR042-BASEGREG) 

« , 


001C3C 

47 FO 

F 

C4E 


BC 

ALWAYS,ALZ056 



001C40 

91 01 

F 

81B 

ALZ054 

TM 

DATA5G9»X'01' 

WAS BIT 5 ALWAYS ON 


001C44 

47 80 

F 

C4E 


BC 

ALLOFF,ALZ056 

BRANCH IF ABLE TO RESET BIT 5 


001C48 

OA DO 




SVC 

X' DO' 

ERR 043 - CHANNEL REG 5 BIT IS 


001C4A 

44 




DC 

X' 44' 

,, ALWAYS ON 


001C4B 

07 




DC 

X' 07 • 

» » 


001C4C 

FDB2 




DC 

AL2(ERR043-BASEGREG) 

f t 


001C4E 

91 02 

F 

825 

ALZ056 

TM 

DATA6G9,X•02' 

DID BIT 6 TURN ON 


001C52 

47 80 

F 

C60 


BC 

ALLOFF,ALZ058 

BRANCH IF TURNED ON 


001C56 

OA DO 




SVC 

X 'DO* 

ERR 044 - CHANNEL REG 6 BIT DOES 

NOT 

001C5.8 

44 




DC 

X • 44 • 

,, TURN ON 


001C59 

07 




DC 

X * 07' 

11 


001C5A 

FDB9 




DC 

AL2(ERR044-BASEGREG) 

* t 


001C5C 

47 FO 

F 

C6E 


BC 

ALWAYS,ALZ060 



001C60 

91 01 

F 

825 

ALZ058 

TM 

DATA6G9,X•01• 

WAS BIT 6 ALWAYS ON 


001C64 

47 80 

F 

C6E 


BC 

ALLOFF,ALZ060 

BRANCH IF ABLE TO RESET BIT 6 


001C68 

OA DO 




SVC 

X * DO • 

ERR 045 - CHANNEL REG 6 BIT IS 


001C6A 

44 




DC 

X * 44* 

,, ALWAYS ON 


001C6B 

07 




DC 

X • 07' 

11 


001C6C 

FDCO 




DC 

AL2(ERR045-BASEGREG) 

» f 


001C6E 

91 02 

F 

82F 

ALZ060 

TM 

DATA7G9*X'02' 

DID BIT 7 TURN ON 


001C72 

47 80 

F 

C80 


BC 

ALLOFF,ALZ062 

BRANCH IF BIT 7 TURNED ON OK 


001C76 

OA DO 




SVC 

X' DO• 

ERR 046 - CHANNEL REG 7 BIT DOES 

NOT 

001C78 

44 




DC 

X' 44' 

,, TURN ON 


001C79 

07 




DC 

X' 07 • 

» t 


001C7A 

FDC7 




DC 

AL2{ERR046-BASEGREG) 

t » 


001C7C 

47 FO 

F 

C8E 


BC 

ALWAYS,ALZ064 



001C80 

91 01 

F 

82F 

ALZ062 

TM 

DATA7G9,X * 01 * 

WAS BIT 7 ALWAYS ON 


001C84 

47 80 

F 

C8E 


BC 

ALLOFF,ALZ064 

BRANCH IF ABLE TO RESET BIT 7 


001C88 

OA DO 




SVC 

X'DO» 

ERR 046 - CHANNEL REG 7 BIT IS 


001C8A 

44 




DC 

X * 44' 

,, ALWAYS ON 


001C8B 

07 




DC 

X * 07« 

* * 


001C8C 

FDCE 




DC 

AL2{ERR047-BASEGREG) 

» * 


001C8E 

47 FO 

F 

CAO 

ALZ064 

* 

BC 

ALWAYS,EXIT01 

GO TO NEXT ROUTINE 


001C92 

OA DO 



* 

ADRCHK 

SVC 

X * DO' 

ERROR MESSAGE - PROGRAM DETECTED 


001C94 

44 




DC 

X' 44 * 

,, ADDRESSING PROBLEM 

001C95 

19 




DC 

X ' 19 • 



001C96 

FD3B 




DC 

AL2{MESS2-BASEGREG) 

, , 


001C98 

92 83 

F 

79C 


MVI 

SCHNUM,X * 83' 

SET UP TO SEARCH FOR TEN 03 


001C9C 

47 FO 

F 

6EC 


BC 

ALWAYS,EXIT 

GO TO ROUTINE EXIT 


001CA0 

91 20 

F 

004 

EXIT01 

TM 

SNSW,X'20’ 

IS LOGOUT OF DATA TABLE DESIRED 


001CA4 

47 80 

F 

6EC 


BC 

ALLOFF,EXIT 

BRANCH IF NOT DESIRED 


001CA8 

41 00 

F 

844 


LA - 

GR0,DATAXG10 

LOAD MAX COUNT 


001CAC 

41 10 

F 

7E0 


LA 

GR1,DATAO 

LOAD GR 1 WITH START OF DATA TABLE 

001CBO 

D2 09 

F 

844 1 000 

LG0UT1 

MVC 

WRITE!10),0(GR1) 

SET UP DATA FOR PRINTOUT 


001CB6 

OA DD 




SVC 

X»DO' 

CONVERT TO PTINTABLE CHARS 


001CB8 

000 A 




DC 

AL2(10) 

,, 10 HEX BYTES 


001CBA 

0844 




DC 

AL2(WRITE—SECST) 

,, ADDR OF DATA 


001CBC 

0858 




DC 

AL2(LGAREA89-SECST) 

,, ADDR OF DATA 


001CBE 

41 20 

F 

86A 


LA 

GR2,LGAREAG27 

SET UP MAX PACKED DATA ADDRESS 


001CC2 

41 30 

F 

858 


LA 

GR3,LGAREAG9 

INIT INDEX 3 -USED TO ADDR PACK 

DATA 

001CC6 

41 40 

F 

84F 


LA 

GR4,LGAREA 

INIT INDEX 4 -USED TO ADDR EXPANDED 

001CCA 

D2 01 

4 

000 3 000 

LG0UT2 

MVC 

012,GR4),0(GR3) 

MOVE CHARS 
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001CD0 

92 40 4 002 


MVI 

2(GR4),X•40• 

MOVE BLANK 

001CD4 

41 44 0 003 


LA 

GR4,3(GR4,0) 

UPDATE EXPANDED INDEX BY 3 

001CD8 

41 33 0 002 


LA 

GR3,2(GR3,0) 

UPDATE PACKED INDEX BY 2 

001CDC 

15 32 


CLR 

GR3,GR2 

WERE ALL POSITIONS MOVED 

001CDE 

47 60 F CCA 


BC 

NEQUAL,LG0UT2 

GO MOVE NEXT CHAR IF NOT DONE 

001CE2 

OA DO 


SVC 

X • DO' 

LOG OUT TABLE 

001CE4 

80 


DC 

X' 80 • 

t * 

001CE5 

ID 


DC 

X' ID' 

,, 29 BYTES 

001CE6 

F84F 


DC 

AL2(LGAREA-BASEGREG) 

,, ADDR OF MESSAGE 

001CE8 

41 11 0 00A 


LA 

GR1,10(GR1,0) 

UPDATE DATA INDEX BY 10 

001CEC 

15 10 


CLR 

GR1,GR0 

WERE ALL LINES PRINTED 

001CEE 

47 60 F CBO 


BC 

NEQUAL,LG0UT1 

GO DO NEXT LINE IF NOT 

001CF2 

OA DA 


SVC 

X'DA' 

HALT G WAIT FOR ACTION 

001CF4 

47 FO F 6EC 


BC 

ALWAYS,EXIT 

ROUTINE EXIT 



« 

* 


CONSTANTS 




* 

* 


CCW TABLE 


001CF8 



CNOP 

0,8 

DOUBLE WORD ALIGNMENT 

001CF8 

01 001844 2000 0002 

PWRCCW 

CCW 

X'Ol',WRITE,X'20’ ,2 

DIAG WRITE TO PNCH BUFF, SLI ON 

001D00 

C2 001849 2000 0001 

RDCCW 

CCW 

X *C2',READ,X* 20',1 

DATA READ FROM BUFFER, SLI ON 

001008 

C6 0017DO 2000 0003 

CRDCCW 

CCW 

X'C6',CKRDAR,X*20',3 

DIAG CHECK READ CCW, SLI ON 

001D10 

C6 001234 2000 0064 

ADRCCW 

CCW 

X'C6',SCPDAT,X*20',100 DIAG READ FROM BUFFER, SLI ON 

001018 

OOOOOOQ A 

TEN 

DC 

XL4•OA• 


001D1C 

F2F8F2F140E2C3C1D5 

TITLE1 

DC 

C'2821 SCAN/2540, • 


001D25 

61F2F5F4FO6B40 * 





001D2C 

C3C8C1D5D5C5D340D9 


DC 

C 'CHANNEL REG FLT® 


001D35 

C5C740C6D3E3 





001D3B 

C2E4C6C6C5D940C1C4 

MESS2 

DC 

C'BUFFER ADDRESSIN' 


001D44 

C4D9C5E2E2C9D5 





001D4B 

C740D7D9D6C2D3C5D4 


DC 

C'G PROBLEM' 


001D54 

.OOOOFF 

CLEAR 

DC 

X•OOOOFF' 

USED TO RESET DEAG CHECK READ AREA 


* ERROR MESSAGES FOR CHANNEL REGISTER 

# 

001D57 C5D9D940F0F3F0 ERR030 DC C'ERR 030* ALL CHANNEL REGISTER BITS ALWAYS ON 

001D5E C5D9D940F0F3F1 ERR031 DC C’ERR 031' ALL CHANNEL REG BITS ALWAYS OFF 

001D65 C5D9D940F0F3F2 ERR032 DC C’ERR 032’ CHANNEL REG 0 BIT CANNOT TURN ON 

001D6C C5D9D940F0F3F3 • ERR033 DC C’ERR 033' CHANNEL REG 0 BIT CANNOT TURN OFF 

001D73 C5D9D940F0F3F4 ERR034 DC C'ERR 034* CHANNEL REG 1 BIT CANNOT TURN ON 

001D7A C5D9D940F0F3F5 ERR035 DC C’ERR 035* CHANNEL REG 1 BIT CANNOT TURN OFF 

001D81 C5D9D940F0F3F6 ERR036 DC C'ERR 036' CHANNEL REG 2 BIT CANNOT TURN ON 

001D88 C5D9D940F0F3F7 ERR037 DC C'ERR 037’ CHANNEL REG 2 BIT CANNOT TURN OFF 

001D8F C5D9D940F0F3F8 ERR038 DC C'ERR 038' CHANNEL REG 3 BIT CANNOT TURN ON 

001D96 C5D9D940F0F3F9 ERR039 DC C'ERR 039' CHANNEL REG 3 BIT CANNOT TURN OFF 

001D9D C5D9D940F0F4F0 ERR040 DC C'ERR 040’ CHANNEL REG 4 BIT CANNOT TURN ON 

001DA4 C5D9D940F0F4F1 ERR041 DC C'ERR 041' CHANNEL REG 4 BIT CANNOT TURN OFF 

001DAB C5D9D940F0F4F2 ERR042 DC C'ERR 042' CHANNEL REG 5 BIT CANNOT TURN ON 

001DB2 C5D9D940FOF4F3 ERR043 DC C’ERR 043' ' CHANNEL REG 5 BIT CANNOT TURN OFF 

001DB9 C5D9D940F0F4F4 ERR044 DC C'ERR 044' CHANNEL REG 6 BIT CANNOT TURN ON 

001DC0 C5D9D940F0F4F5 ERR045 DC C'ERR 045' CHANNEL REG 6 BIT CANNOT TURN OFF 

001DC7 C5D9D940F0F4F6 ERR046 DC C'ERR 046' CHANNEL REG 7 BIT CANNOT TURN ON 

001DCE C5D9D940F0F4F7 ERR047 DC C'ERR 047' CHANNEL REG 7 BIT CANNOT TURN OFF 

OOFOOO REG EQU X'FOOO' 

001000 BASE EQU SECST 

END 
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POST ASSEMBLY DATA. 


REFERENCES TO DEFINED SYMBOLS. 


4 

1048 

CAW 

1306, 

131C, 

1322, 

1352, 

137E , 

13AA , 

1424 




149E, 

14A2, 

14AC, 

14B0, 

155C , 

15EE , 

1660 




16B6, 

16BA, 

16C0, 

1704, 

18C4, 

18DC , 

1912 




1946, 

: 198C 






8 

1040 

CSW 








1 

0 

GRO 

1482, 

1700, 

1704, 

188A, 

188A, 

1894, 

1896 




18C0, 

18C4, 

18D8, 

18DC, 

1902',-' 

1912, 

1942 




1946, 

197A, 

197E, 

1988, 

198C , 

19F2 , 

1A02 




1B18, 

1B1C, 

1B32, 

1B4A, 

1B6A, 

1CA8, 

1CEC 

1 

1 

GR1 

1302, 

132C, 

1330, 

15DE, 

19F6, 

19FA , 

19FE 




19FE, 

1A02, 

1A4E, 

1A56, 

1A72 , 

1A80, 

1B3A 




1B3E, 

1B46, 

1B46, 

1B4A, 

1B5A, 

1B5E, 

1B66 




1B66, 

1B6A, 

1CAC,- 

1CB0, 

1CE8, 

1CE8, 

1CEC 

1 

2 

GR2 

13CA, 

13E8, 

1A52, 

1A8C, 

1A96, 

1A9E, 

1AAA 




1AAE, 

1CBE, 

1CDC 





1 

3 

GR3 

1454, 

1562, 

15BA, 

1CC2, 

1CCA, 

1CD8, 

1CD8 




1CDC 







1 

4 

GR4 

149A, 

14 9 E , 

14BA, 

14C6, 

1CC6, 

1CCA, 

1CD0 




1CD4, 

1CD4 






1 

5 

GR5 

1482, 

1486, 

1486, 

1488 




1 

6 

GR6 








1 

7 

GR7 

1A4A, 

1A76, 

1A88, 

1A8C, 

1A8E, 

1AB2, 

1AC6 

1 

8 

GR8 

1666, 

16F4, 

18B6, 

1A46, 

1A5A , 

1A62, 

1A6A 




1A76, 

1A7C, 

1A7C, 

1A7C, 

1AB6, 

1AC2 


1 

9 

GR9 

1302, 

15DE, 

163E, 

165C, 

16B2, 

16B6, 

18F8 




1976, 

197E, 

19EA, 

1B14, 

1B14, 

1B1C 


1 

A 

GRA 

1674, 

1938, 

1966, 

19E8 




1 

B 

GRB 

15E2, 

16A2, 

1710, 

18CC, 

18E8, 

191 A, 

194E 




19AA 







1 

C 

GRC 

1318, 

1328, 

13BE, 

13CA, 

13D4, 

13DC, 

13E0 




13E8, 

14B6, 

151C, 

1564, 

158C, 

163E, 

1648 




164C, 

165C, 

1688, 

16C6, 

16CA, 

1708, 

18BA 




18BA, 

18BC, 

18E0, 

18F4, 

1994, 

199C 


1 

D 

GRD 

1322, 

1402, 

140A, 

1412, 

1428, 

14B0, 

14F4 




152C, 

1578, 

159C, 

16C0, 

1870, 

1870, 

187A 

1 

E 

GRE 

1482, 

16F8 






1 

F 

GRF 

187A, 

1894 






1 

184E 

HCK 

1A08, 

1A3A, 

1A42 





2 

100A 

I CM 








1 

4 

LOW 








1 

FOOO 

REG 

1364, 

1390, 

13BC, 

1446, 

146C , 

147A , 

1480 




1506, 

1510, 

1556, 

160A, 

1626, 

1630, 

1636 




1646, 

16EA, 

1888, 

19E2, 

1854, 

1B88, 

1B9A 




1BAC, 

1BBA, 

1BCC, 

1BDA, 

1BEC, 

1BFA , 

1C0C 




1C1 A, 

1C2C, 

1C3A, 

1C4C, 

1C5A , 

1C6C, 

1C7A 




1C8C, 

1C96, 

1CE6 





6 

12E8 

SIO 

1710, 

18CC, 

18E8, 

191A, 

194E , 

19AA 


4 

1D18 

TEN 

1A80, 

1A96 






3 

1000 

BASE 

1364, 

1390, 

13BC, 

1446, 

146C , 

147 A, 

1480 




1506, 

1510, 

1556, 

160A, 

1626, 

1630, 

1636 




1646, 

16EA, 

1888, 

1962, 

.1854, 

1B88, 

1B9A 




1BAC , 

• 1BBA, 

1BCC, 

1BDA, 

18EC, 

1BFA , 

1C0C 




1C1A, 

1C2C, 

1C3A, 

1C4C , 

1C5A , 

1C6C, 

1C7 A 




1C8C, 

1C96, 

1CE6 





1 

2 

BUSY 








4 

17 BO 

CLRC 

1318 







4 

16EC 

EXIT 

1C9C, 

1CA4, 

1CF4 





8 

1058 

EXTR 








1 

48 

HCAW 

1322, 

1480, 

16C0 





1 

40 

HCSW 

1402, 

140A, 

1412, 

1428, 

14F4, 

152C, 

1578 


159C 


DATE 
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1BC4, 

1C32, 

1 F ALWAYS 1366, 

1508, 
15A2, 
1718, 
1A84, 
1B2E, 
1BFC, 
1CF4 


4 

1B26 

ALZOOO 

1B22 

4 

1B32 

ALZ005 

1B2A 

4 

1B3E 

ALZ010 

1B4C 

2 

1B50 

ALZ015 

1ACA 

4 

1B5A 

ALZ020 

1B42 

4 

1B5E 

ALZ021 

1B6C 

4 

1B74 

ALZ025 

1B62 

2 

1B84 

ALZ028 

1B70 

4 

1B8E 

ALZ030 

1B78, 

4 

1BA0 

ALZ032 

1B92 

4 

1BAE 

ALZ034 

1B9C, 

4 

1BCO 

ALZ036 

1BB2 

4 

1BCE 

ALZ040 

1BBC, 

4 

1BE0 

ALZ042 

1BD2 

4 

1 BEE 

ALZ044 

1BDC, 

4 

1C00 

ALZ046 

1BF2 

4 

1C0E 

ALZ048 

1BFC, 

4 

1C20 

ALZ050 

1C 12 

4 

1C2E 

ALZ052 

1C1C, 

4 

1C40 

ALZ054 

1C32 

4 

1C4E 

ALZ056 

1C3C, 

4 

1C60 

ALZ058 

1C52 

4 

1C6E 

ALZ060 

1C5C, 

4 

1C80 

ALZ062 

1C72 

4 

1C8E 

ALZ064 

1C7C, 

1 

114C 

CAWKEY 

131C* 

3 

17 DO 

CKRDAR 

193C, 

4 

19 EA 

CRCKOO 

1984 

4 

19FA 

CRCK05 

1A04 

6 

1AOC 

CRCK10 

IB IE 

4 

1A16 

CRCK11 

1A3E, 

4 

1A1E 

CRCK20 


6 

1A26 

CRCK30 


4 

1A3A 

CRCK35 

1A12 

4 

1A52 

CRCK38 

1A84, 

2 

1A76 

CRCK39 

1A5E, 

4 

1A88 

CRCK40 

1A6E 

4 

1 A9E 

CRCK41 

1A5A 

4 

1AA2 

CRCK42 

1A92 

4 

1 AAA 

CRCK43 

1A62 

4 

1AAE 

CRCK44 

1A6A 

4 

1AB2 

CRCK50 

1A32 

4 

1 ABA 

CRCK51 

1AC6 

4 

1 ACE 

CRCK55 

1ABE 

4 

1AE6 

CRCK60 

1ADA 

4 

1AEE 

CRCK80 

1A1 A, 

4 

1AFE 

CRCK81 

1AF2 

4 

1 BOA 

CRCK86 

IAEA, 

6 

1BOE 

CRCK90 

1A36, 

8 

1D08 

CRDCCW 

1988 

4 

112C 

CSWSAV 

15A6, 

2 

18BA 

DAT AOO 

18B2 

4 

18C0 

DAT A05 


4 

18 08 

DAT A08 


6 

18FC 

DATA10 

1980, 

6 

1932 

DATA20 


4 

1942 

DAT A30 


6 

1970 

DATA40 



1BD2, 

1BE4, 

1BF2, 

1C04 

1C44, 

1C52, 

1C64, 

1C72 

1392, 

13D8, 

13EA, 

1450 

1512, 

1528, 

1558, 

1562 

15E2, 

1628, 

1638, 

1666 

1984, 

19BE, 

19E4, 

19E8 

1A9A, 

1AA6, 

1ACA, 

IAEA 

1B56, 

1870, 

1B8A, 

1B9C 

1C1C, 

1C3C, 

1C5C, 

1C7C 


1B80 

1BA4 

1BC4 

1BE4 

1C04 

1C24 

1C44 

1C64 

1C84 

14A2, 16BA, 1896 

196A, 19A0, 19B6, 19C2, 


1A78 


1A9A 

1A66, 1AA6 


1A22 




1B06 

1AD2, 

1AE2, 

1AFA, 

1B02 

18D0, 

18EC, 

1926, 

195A 


19E4 


1C12, 
1C 84 , 
146E , 
156C y 
1670, 
1A12 , 
1B06, 
1BBC, 
1C8E , 


ID 08 


1C24 
1CA4 
1490 
1598 
16E2 
1A36 
1B22 
1B0C 
1C9C 


DATE 

EC 
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4 

136A 

SIOBOO 

1340 







4 

1396 

SIOCOO 

136E 







4 

13DC 

SI0C01 

13D0 







4 

13 BE 

S IOCOA 

134A, 

1366, 

13A2, 

13F2 , 

144C , 

1574 


3 

1738 

SI0CN1 

12FC 







16 

175E 

SI0CN2 

14EE, 

160C 






4 

13EE 

S IODOO 

139 A 







6 

141A 

SI0D01 

13FA, 

1406, 

140E 





4 

1448 

SI0D02 

146E 







4 

1454 

SIOEOO 

143E 







4 

1472 

SI0E01 

1464 







4 

1482 

SI0E02 

1638 







6 

1494 

SIOFOO 

1454, 

15BA 






6 

14B0 

SI0F01 

156C 







2 

150C 

SI0F02 

14DA, 

14E6 






6 

1516 

SI0F03 

14D2, 

1524 

’ * 4 





6 

152C 

SI0F04 

1520 

* 






4 

1532 

SI0F05 

1528 







2 

154A 

SI0F06 

1536, 

153E 






6 

155C 

SI0F07 

1546 







4 

1564 

SI0F08 

14C2, 

1508, 

1512, 

1558, 

1568 



4 

158C 

SIOIOO 

1594, 

15A2 






6 

159C 

SI0I01 

1590 







6 

15A6 

$10102 

1598 







4 

15C6 

SI0I03 

15B6 







4 

15DE 

S10104 

1338, 

1582 






6 

15E4 

S10105 

15C2, 

15CA, 

15D2, 

15DA 




6 

160C 

SI0I06 

1602 







2 

162C 

SI0I07 

161E 







4 

1570 

S10INT 

107D, 

1738 






16 

114E 

SI0MS1 

1354, 

1356, 

135C, 

1364, 

1380, 

1382, 

1388 




1390, 

13AC, 

13AE, 

13B4, 

13BC 



16 

1184 

SI0MS2 

141A, 

1426, 

1434, 

1436, 

1446>- 

145E , 

146C 




147A, 

15E4, 

15F0, 

15F8, 

15FA , 

160A, 

160C 




1618, 

1626, 

1630 





16 

11C1 

SI0MS3 

1494, 

14AE, 

14CA, 

14D6, 

14DE , 

14EA , 

14EE 




1500, 

1506, 

1510, 

1550, 

1556 



16 

173B 

SI0MS4 

1480, 

1636 






1 

114D 

SIOSWS 

J2EE, 

1334, 

13CC, 

148C , 

157E , 

170C , 

18C8 




18E4, 

1916, 

191E, 

194A , 

1952, 

1990, 

19A6 




19 AE, 

19D0 






4 

1104 

SI0VR1 

1302, 

15DE 






4 

1128 

SI0VR2 

1306, 

155C, 

1660 





4 

112C 

SI0VR3 

130C, 

130C, 

1428, 

1432, 

143 A , 

1448, 

1578 




17B4 







4 

1134 

SI0VR4 

1330, 

133C, 

136A, 

1396 




3 

1180 

SI0VR5 

12E8, 

12F6, 

1356, 

1382, 

13AE, 

141A, 

1494 




15E4 







1 

1183 

SI0VR6 

13F6, 

13FE, 

1472 





4 

1138 

SI0VR7 

14C6, 

14CE, 

14E2 





4 

113C 

SI0VR8 * 

14F4, 

14FE, 

1516, 

1516, 

152C, 

1532, 

153A 




1542, 

154E 






4 

1144 

SI0VR9 








8 

1728 

SNSCCW 

149A 







1 

1845 

ST AT1A 

1906, 

1906, 

1926 





1 

1846 

STAT IB 

192C 







2 

11F8 

STATSV 

1586, 

1586, 

159C, 

15AC, 

192C 



5 

1060 

SVRPSW 








16 

1D1C 

TITLE1 

1888 







1 

17 DD 

TSTCHR 








2 

10E2 

UNIADR 

13D4, 

1708, 

189E, 

18E0, 

199C 



2 

10E6 

UN2ADR 

13DC, 

18A6, 

18BC, 

18F4, 

1994 



1 

1000 

XF8041 









NO ERROR DETECTED IN ABOVE ASSEMBLY 
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02- 








001867 

0000 










001869 

F20000000000000000 

DAT A2 

DC 

X ' F20000000000000000' 

DATA 

REG 

2 

BIT 

DATA 

GROUP 

001872 

020000000000000000 


DC 

X»0200000000000000000000' 

» » 






00187B 

0000 










001870 

F30000000000000000 

DAT A3 

DC 

X' F30000000000000000• 

DATA 

REG 

3 

BIT 

DATA 

GROUP 

001886 

010000000000000000 


DC 

X'0100000000000000000000' 

* » 






00188F 

0000 










001891 

F40000000000000000 

DAT A4 

DC 

X•F 40000000000000000» 

DATA 

REG 

4 

BIT 

DATA 

GROUP 

00189A 

002000000000000000 


DC 

X*0020000000000000000000' 

« 1 






0018A3 

0000 










0018A5 

F50000000000000000 

DATA5 

DC 

X' F 50000000000000000 * 

DATA 

REG 

5 

BIT 

DATA 

GROUP 

0018AE 

001000000000000000 


DC 

X'0010000000000000000000* 

1 * 






0018B7 

0000 










0018B9 

F60000000000000000 

DATA6 

DC 

X'F60000000000000000 * 

DATA 

REG 

6 

BIT 

DATA 

GROUP 

0018C2 

000800000000000000 


DC 

X'0008000000000000000000• 

* * 






0018CB 

0000 










0018C0 

F70000000000000000 

DAT A 7 

DC 

X•F 70000000000000000• 

DATA 

REG 

7 

BIT 

DATA 

GROUP 

0018D6 

000400000000000000 


DC 

X«0004000000000000000000' 

t * 






0018DF 

0000 










0018El 

F80000000000000000 

DATA8 

DC 

X * F 80000000000000000' 

DATA 

REG 

8 

BIT 

DATA 

GROUP 

0018EA 

000200000000000000 


DC 

X'0002000000000000000000' 

* • 






0018F3 

0000 










0018F5 

F90000000000000000 

DATA9 

DC 

X ' F90000000000000000 * 

DATA 

REG 

9 

BIT 

DATA 

GROUP 

0018FE 

000100000000000000 


DC 

X'0001000000000000000000' 

f f 






001907 

0000 










001909 

400000000000000000 

DATAB 

DC 

X'400000000000000000' 

DATA 

REG 

BLANK 

DATA 

GROUP 

001912 

000000000000000000 


DC 

X'0000000000000000000000* 

» * 






001918 

0000 










00191D 

310000000000000000 

DATAEX 

DC 

X*310000000000000000' 

DATA 

REG 

EXTRA 

GRP—9 

> a 1 BITS 

001926 

040100000000000000 


DC 

X•0401000000000000000000• 

* » 






00192F 

0000 










001931 

00 

PROGSW 

DC 

X 

o 

o 








* ROUTINE 02 PREFIX * 


*********************************************************************** 


001932 





CNOP 

0,4 

FULL WORD ALIGNMENT 

001932 

07 

00 



BCR 

0,0 


001934 

02 




RTN02 DC 

XL1*02 » 

ROUTINE NUMBER 

001935 

00 




DC 

XL1'O' 

FLAGS 

001936 

FFFE 



DC 

X'FFFE ' 

ADDRESS OF NEXT ROUTINE 






*********************************************************************** 

001938 

95 

00 

F 

79C 

CLI 

SCHNUM,X * 00 * 

SEE IF SHLD RUN CTL PGM 

00193C 

47 

80 

F 

942 

BC 

EQUAL,INITOO 

BRCH IF YES 

001940 

OA 

D6 



SVC 

X' D6 1 

ROUTINE EXIT 

001942 

91 

40 

F 

931 

INITOO TM 

PROGSW,X *40' 

IS RUN RTN SWITCH ON 

001946 

47 

80 

F 

94E 

BC 

ALLOFF,INIT05 

BR IF NO 

00194A 

92 

00 

F 

79C 

M VI 

SCHNUM,X * 00 * 

RESET SEARCH NO. 

00194E 

95 

00 

F 

79C 

INIT05 CLI 

SChNUM,X'00' 

IS SEARCH NO. RESET 

001952 

47 

60 

F 

6EC 

BC 

NEQUAL,EXIT 

BYPASS ROUTINE 

001956 

96 

40 

F 

931 

01 

PROGSW,X*40' 

TURN ON RUN RTN SWITCH 

00195A 

91 

02 

F 

004 

TM 

SNSW,X *02 * 

IS TITLE PRINTOUT DESIRED 

00195E 

47 

80 

F 

968 

BC 

ALLOFF,INITIO 

BRANCH TO SKIP TITLE PRINT 

001962 

OA 

DO 



SVC 

X * DO * 

PRINT TITLE 

001964 

80 




DC 

X* S0« 

,, NORMAL OUTPUT 

001965 

IF 




DC 

X * IF ' 

,, 31 CHARACTERS 

001966 

FD84 



DC 

AL2(TITLE1-BASECREG) 

,, ADDRESS OF TITLE 

001968 

91 

40 

F 

004 

INITIO TM 

SNSW,X'40* 

SEE IF SEC SS 04 IS 1 - USE SCP RTN 

00196C 

47 

80 

F 

974 

BC 

ALLOFF,DATAOO 

BR IF NO 

001970 

45 

80 

F 

63E 

8AL 

GR8,SCPROO 

GO TO UTILITY ROUTINE 


*********************************************************************** 
* DATA ACCUMULATION ROUTINE 


* THIS ROUTINE ACCUMULATES ALL THE DATA NECESSARY FOR THE ANALYZE 

* ROUTINE* 

************ ************************************** * **************** ***♦ 
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* 


001974 

41 

90 

F 

819 


, 

DATAOO LA 

GR9,DATA12 

SET REG 9 TO TABLE START -INDEX REG- 

001978 

IB 

CC 





SR 

GRC,GRC 

RESET REG 12 








* 

GATHER PUNCH BUFFER 

DATA 

00197A 

D2 

13 

F 

805 

9 

000 

DATA 10 MVC 

DATAWK(20),0(GR9) 

SET A DATA GROUP IN WORK AREA 








*********************************************************************** 








* 

WRITE PUNCH DATA IS 

COLLECTED HERE 

001980 

41 

00 

F 

D58 



LA 

GRO,PWRCCW 

LOAD ADDR OF PUNCH WRITE CCW 

001984 

D7 

07 

F 

806 

F 

806 

XC 

DATAWKC1(8),DATAWK61 

CLEAR WORK AREA EXCEPT WRITE DATA 

00198 A 

07 

06 

F 

810 

F 

810 

XC 

DATAWKC1K7) ,DATAWK£11 ,, 

001990 

50 

00 

F 

048 



ST 

GRO,CAW 

STORE PUNCH CCW ADDR IN CAW 

001994 

92 

00 

F 

14D 



MV I 

SI0SWS,X'00« 

RESET SIO SWITCHES -USE PUNCH- 

001998 

48 

CO 

F 

0E6 



LH 

GRC,UN2ADR 

SET PUNCH I/O ADDR IN GR12 

00199C 

45 

BO 

F 

2E8 



BAL 

GRB,SI 0 

GO TO START I/O ROUTINE 

0019A0 

91 

01 

F 

14D 



TM 

SIOSWStX'01' 

IS INTERVENTION REQ SWITCH SET 

0019A4 

47 

10 

F 

942 



BC 

ALLON,INITOO 

RESTART PROGRAM IF ON 

0019A8 

D2 

00 

F 

806 

F 

130 

MVC 

PWSTAl(l),CSWSAVC4 

SAVE CHAN-END STATUS FOR PUNCH WRITE 

0019AE 

D2 

00 

F 

807 

F 

1F8 

MVC 

PWSTA2(1),STATSV 

SAVE DEV-END STATUS FOR PUNCH WRITE 

0019B4 

D2 

00 

F 

808 

F 

1F7 

DATA20 MVC 

PWSNS(1)» SENSE 

SAVE SENSE DATA FOR PUNCH WRITE 

0019BA 

45 

AO 

F 

A6E 



BAL 

GRA,DGCKRD 

GO DO DIAG CK READ TO PUNCH 

0019BE 

02 

00 

F 

809 

F 

804 

MVC 

PWCKRD(1),CKRDAR 

SAVE CK RD DATA FROM PUNCH WRITE 








■ * 

READ PUNCH DATA IS COLLECTED HERE 

0019C4 

41 

00 

F 

D68 



DATA30 LA 

GRO,PRDCCW 

LOAD ADDRESS OF PUNCH READ CCW 

0019C8 

50 

00 

F 

048 



ST 

GRO,CAW 

SET CCW ADDR IN CAW 

0019CC 

92 

00 

F 

14D 



MV I 

SI0SWS,X'00» 

RESET SIO SWS -USE PUNCH- 

0019D0 

45 

BO 

F 

2E8 



BAL 

GRB,SIO 

GO TO START I/O ROUTINE 

0019D4 

91 

01 

F 

14D 



TM 

SI0SWS,X'01* 

IS INTERVENTION REQ SWITCH ON 

0019D8 

47 

10 

F 

942 



BC 

ALLON,INITOO 

RESTART PROGRAM IF ON 

0019DC 

D2 

00 

F 

80B 

F 

130 

MVC 

PRSTA(l),CSWSAV84 

SAVE STATUS FROM PUNCH BUFFER READ 

0019E2 

D2 

00 

F 

80C 

F 

1F7 

MVC 

PRSNS(l),SENSE 

SAVE SENSE DATA AFTER PUNCH READ 

0019E8 

45 

AO 

F 

A6E 



BAL 

GRA,DGCKRD 

GO DO DIAG CK RD TO PUNCH 

0019EC 

D2 

00 

F 

80D 

F 

804 

MVC 

PRCKRD(1),CKRDAR 

SAVE CK RD DATA AFTER PUNCH-READ 


*********************************************************************** 

* GATHER READ BUFFER DATA 


***••****•*•****««*«**«*«*****•******•**««*«•**•*•*•*••••***•***•****** 

* WRITE READER DATA IS COLLECTED HERE 


0019F2 

41 

00 

F 

D60 



DATA40 LA 

GRO,RWRCCW 

LOAD ADDR OF READ WRITE CCW 

0019F6 

50 

00 

F 

048 



ST 

GRO,CAW 

SET CCW ADDR IN CAW 

0019FA 

92 

00 

F 

14D 



MV I 

SI0SWS,X'00' 

RESET SIO SWS -USE PUNCH ADDRESS- 

0019FE 

45 

BO 

F 

2E8 



BAL 

GRB,SIO 

GO TO START I/O ROUTINE 

001A02 

91 

01 

F 

14D 



TM 

SI0SWS,X'01» 

IS INTERVENTION REQ SWITCH ON 

001A06 

47 

10 

F 

942 



BC 

ALLON,INITOO 

RESTART PROGRAM IF ON 

001 ADA 

D2 

00 

F 

810 

F 

130 

MVC 

RWSTA(1),C SWSAV84 

SAVE STATUS FROM READ BUFFER WRITE 

001A10 

D2 

00 

F 

811 

F 

1F7 

MVC 

RWSNS(1),SENSE 

SAVE SENSE DATA AFTER RD BUFF WRITE 

001A16 

96 

02 

F 

14D 



01 

SIOSWS,X'02' 

'SET SIO SWITCH FOR READER 

001A1A 

45 

AO 

F 

A6E 



BAL 

GRA,DGCKRD 

GO DO DIAG CK READ FOR RD BUFF WRITE 

001A1E 

D2 

00 

F 

812 

F 

804 

MVC 

RWCKRD(l),CKRDAR 

SAVE CK RD DATA AFTER RD BUFF WRITE 








******************************** 

*************************************** 








« 

READ READER DATA IS 

COLLECTED HERE 

001A24 

41 

00 

F 

D70 



DATA50 LA 

GRO,RRDCCW 

LOAD ADDR OF READ BUFF READ CCW 

001A28 

50 

00 

F 

048 



ST 

GRO,CAW 

SET CCW ADDR IN CAW 

001A2C 

92 

02 

F 

14D 



MVI 

SIOSWS,X'02• 

RESET SIO SWITCHES -USE READER¬ 

001A30 

48 

CO 

F 

0E2 



LH 

GRC,UN1ADR 

LOAD READER ADDR IN REG 12 

001A34 

45 

BO 

F 

2E8 



BAL 

GRB,SIO 

GO TO START I/O ROUTINE 


DATE 

EC 


15JUL65 

124265 


17MAR66 

125643 


ID F804-1 
PAGE 13A 





P/N 840258 
PAGE • 14 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 

* F8041 2821 SCAN/2540 REACER/PUNCH 

F8041 CONTROL PROGRAM -ROUTINE OVERLAY 02- 


001A38 

91 

01 

F 

14D 


TM 

SIOSWS,X * 01• 

IS INTERVENTION REQ SWITCH ON 

001A3C 

47 

10 

F 

942 


BC 

A Li-ON , INI TOO 

RESTART PROGRAM IF ON 

001A40 

D2 

00 

F 

814 F 130 


MVC 

RRSTAU ) ,CSWSAV64 

SAVE STATUS FROM READ BUFFER READ 

001A46 

02 

00 

F 

815 F 1F7 


MVC 

RRSNSU) ,SENSE 

SAVE SENSE DATA AFTER READ BUFF READ 

001A4C 

45 

AO 

F 

A6E 


BAL 

GRA,DGCKRD 

GO DO DIAG CK READ TO READER 

001A50 

D2 

00 

F 

816 F 804 


M VC 

RRC KRD(1),CKRDAR 

SAVE CK RD DATA AFTER READ BUFF READ 

001A56 

D2 

13 

9 

000 F 805 

0ATA60 

MVC 

0(20,GR9),DATAWK 

RESTORE DATA FROM WORK AREA TO GROUP 

001A5C 

41 

99 

0 

014 


LA 

GR9,20(GR9,0) 

UPDATE REG 9 BY 20 

001A60 

41 

00 

F 

931 


LA 

GRO*DATAEX620 

SET GRO TO MAX COUNT 

001A64 

15 

90 




CLR 

GR9,GRO 

ALL DATA ACCUMULATED 

001A66 

47 

60 

F 

97A 


BC 

NEQUAL,DATA10 

GO GET NEXT DATA GROUP 

001A6A 

47 

FO 

F 

ACA 

* 

BC 

ALWAYS,ALZAOO 

GO TO CONTROL PROGRAM 






« 

# 


ROUTINE TO DO DIAG CK 

READ 

001A6E 

41 

00 

F 

D78 

DGCKRD 

LA 

GRO,CRDCCW 

LOAD ADDR OF DIAG CK RD CCW 

001A72 

50 

00 

F 

048 


ST 

GRO,CAW 

STORE ADDR OF CCW IN CAW 

001A76 

48 

CO 

F 

0E6 


LH 

GRC,UN2ADR 

SET PUNCH I/O ADDR IN GR 12 

001A7A 

91 

02 

F 

14D 


TM 

SIOSWS,X *02• 

IS READER CK RD WANTED 

001A7E 

47 

80 

F 

A86 


BC 

ALLOFF,*68 

BRANCH IF NOT READER 

001A82 

48 

CO 

F 

0E2 


LH 

GRC,UN1ADR 

SET UP ADDRESS OF READER 

001A86 

92 

CO 

F 

804 


MVI 

CKRDAR,X»CO» 

CLEAR DIAG CHECK READ AREA 

001ASA 

94 

FD 

F 

14D 


NI 

SIOSWS,X•FD• ^ 

RESET SIO SWITCHES EXCEPT READ-PUNCH 

001A8E 

45 

BO 

F 

2E8 


BAL 

GR8,SIO 

GO TO START I/O ROUTINE 

001A92 

91 

01 

F 

14D 


TM 

SIOSWS,X»01• 

IS INTERV REQ SW ON 

001A96 

47 

10 

F 

942 


BC 

ALLON,INITOO 

RESTART PROG IF ON 

001A9A 

91 

CO 

F 

804 


TM 

CKRDAR,X'CO' 

WAS CHECK READ DATA TRANSFERRED 

001A9E 

47 

10 

F 

AAA 


BC 

ALLON,DGCK10 

BR IF NOT OK 

001AA2 

47 

FO 

F 

ACS 


BC 

ALWAYS,RETNCR 

BR IF OK 

001AA6 

47 

80 

F 

AC8 


BC 

ALLOFF,RETNCR 

BRANCH IF OK 

001AAA 

D2 

02 

F 

212 F 231 

DGCK10 

MVC 

MESS1616(3),UAPU 

SET PUNCH ADDRESS IN MESSAGE 

001ABO 

91 

02 

F 

14D 


TM 

SIOSWS,X«02* 

IS READER BEING USED 

001AB4 

47 

80 

F 

ABE 


BC 

ALLOFF,*610 

BRANCH IF NOT READER 

001AB8 

02 

02 

F 

212 F 22D 


MVC 

MESS1616(3),UARD 

SET READER ADDRESS IN MESSAGE 

001ABE 

OA 

DO 




SVC 

X * DO • 

PRINT DIAG CR RD MESSAGE 

001ACO 

40 





DC 

X * 40 * 

,, ERROR MESSAGE 

001AC1 

2 A 





DC 

X • 2A » 

,, 42 CHARACTERS 

001AC2 

F202 




DC 

AL2(MESS1-BASE6REG) 

,, ADDRESS OF MESSAGE 

001AC4 

47 

FO 

F 

97A 


BC 

ALWAYS,DATA10 

GO RESTART DATA GROUP 

001AC8 

07 

FA 



RETNCR 

BCR 

ALWAYS,GRA 

RETURN TO OTHER ROUTINE 


******************************** 


►«*####***####§** 


ANALYZE ROUTINE 


****#«#«&*##*#«««**« 




i************** 


ANALYZE FOR BAR, RAR, OR PAR ERRORS 


K-***«■**•*******#**** 


00lACA 41 10 F 819 

001ACE 41 20 F 910 

001AD2 D2 13 F 805 

001AD8 91 01 F 809 

001ADC 47 10 F B06 

001AEO 91 01 F 80D 

001AE4 47 10 F B06 

001AE8 91 01 F 812 

001AEC 47 10 F B06 

001AFO 91 01 F 800 

001AF4 47 10 F B06 

001AF8 15 12 

001AFA 47 80 F B14 

001AFE 5E 10 F D80 

001B02 47 FO F AD2 

001B06 OA 00 

001B08 44 

001B09 07 

001B0A F0A3 


ALZAOO LA 
LA 

1 000 ALZA10 MVC 

TM 
BC 
TM 
BC 
TM 
BC 
TM 
BC 
CLR 
BC 
AL 
BC 

ALZA20 SVC 
DC 
DC 
DC 


GR1 ,DATA 12 LOAD GR 1 WITH ADDR OF TABLE START 

GR2 ,DATAEX LOAD GR 2 WITH ADDR OF TABLE END 

DATAWK(20)»0{GR1) LOAD DATA IN WORK AREA 

P WCKRD ,X 8 01 * BR IF GOT WR PCH 8UF ADDR CK 

ALLON,ALZA20 ,, 

PRCKRD »X* 01 * BR IF GOT RD PCH BUF ADDR CK 

ALLON,ALZA20 ,, 

RWCKRD,X * 01 * BR IF GOT WR RDR BUF ADDR CK 

ALLON,ALZA20 , , 

PRCKRD,X*G1* BR IF GOT RD RDR BUF ADDR CK 

ALLON j ALZA20 ,, 

GRI,GR2 BR IF END OF TABLE 

EQUAL,ALZ800 ,, 

GR1 ,ALZKA1 AOD 20 TO GR 1 

ALWAYS,ALZA10 CONTINUE THIS RTN WITH NEXT DATA GRP 

X * DO * ERR 001 - BUFFER ADDRESSING PROS 

X' 44 * PRINT PROG. NO PRIOR TO MSG 

X'07• NO. OF CHAR IN OUTPUT MESSAGE 

AL2(ERR0Q1-BASE6REG) MESSAGE ADDRESS 
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001BOC 92 83 F 79C MVI SCHNUM,X»83* SET UP TO SEARCH FOR ROUTINE 03 

001 BIO 47 FO F CDE BC ALWAYS,LGOUTO GO SEE IF WANT LOG OUT 

*********************************************************************** 
* COME HERE IF NO BUFFER ADDRESSING ERRORS EXIST - CK PWCKRD DATA* 


*********************************************************************** 


001314 

41 

10 

F 

819 


ALZBOO LA 

GR1,DATA12 

LOAD GR1 WITH ADDR OF TABLE START 

001B18 

41 

20 

F 

91D 


LA 

GR2,DATAEX 

LOAD GR2 WITH ADDR OF TABLE END 

001B1C 

D2 

13 

F 

805 

1 000 

ALZB10 MVC 

DATAWK(20),0(GR1) 

LOAD DATA IN WORK AREA 

001B22 

91 

02 

F 

809 


TM 

PWCKRD,X'02' 

BR IF PUNCH XLATE ERROR 

001B26 

47 

10 

F 

BBA 


BC 

ALLON,ALZDOO 

1 1 














* COME 

HERE IF GOT (NA. NX.) 

- CHECK PRCKRD HERE 








001B2A 

D5 

00 

F 

805 

F 80A 

ALZCOO CLC 

PCHWR(1),PCHRD 

BR IF DATA READ FROM PCH BUF OK 

001B30 

47 

80 

F 

B7C 


BC 

EQUAL,ALZC40 

tt 

001B34 

91 

02 

F 

80D 


TM 

PRCKRD,X'02» 

BR IF DID NOT GET RD XLATE 

001B38 

47 

80 

F 

B60 


BC 

ALLOFF,ALZC20 

11 

001B3C 

91 

04 

F 

80D 


TM 

PRCKRD,X*04* 

BR IF GOT PARITY 

001B40 

47 

10 

F 

B56 


BC 

ALLON,ALZC10 

t , 

001B44 

91 

08 

F 

80C 


TM 

PRSNS,X»08» 

BR IF GOT INVALID CARD CODE 

001B48 

47 

10 

F 

B56 


BC 

ALLON,ALZC10 

t» 

001B4C 

OA 

DO 




SVC 

X *D0 * 

ERR 005 - PROB AT CHAN REG DURING 

001B4E 

44 





DC 

X * 44* 

RD XFER CYCLE - GOT (NA.NX.NP)(D.NA. 

001B4F 

07 





DC 

X *07* 

X) WITHOUT INVALID CARD CODE 

001B50 

FDBF 




DC 

AL2(ERR005-BASE6REG) 


001B52 

47 

FO 

F 

CB6 


BC 

ALWAYS,ALZH11 

SELECT READ XLATE FLT 

001B56 

OA 

DO 




ALZC10 SVC 

X 'DO* 

ERR 006 - PROB IN BUFF INHIBIT 

001B58 

44 





DC 

X *44' 

LINES AND/OR CTLS OR BUFFER 

001B59 

07 





DC 

X' 07 • 

SENSE AMPS - GOT (NA.NX.NP)(D.NA.X) 

001B5A 

FDC6 




DC 

AL2(ERR006-BASE6REG) 


001B5C 

47 

FO 

F 

CDA 


BC 

ALWAYS,LGOUTA 

GO SEE IF WANT LOG OUT 

001B60 

91 

04 

F 

80D 


ALZC20 TM 

PRCKRD,X•04 * 

BR IF GOT PARITY 

001B64 

47 

10 

F 

B72 


BC 

ALLON,ALZC30 

t , 

001B68 

OA 

DO 




SVC 

X' DO* 

ERR 007 - CHAN REG PROB - GOT 

001B6A 

44 





DC 

X *44' 

(NA.NX.NP)(D.NA.NX.NP) 

001B6B 

07 





DC 

X'07» 


001B6C ' 

FDCD 




DC 

AL2(ERR007-BASE6REG) 


001B6E 

47 

FO 

F 

CB6 


BC 

ALWAYS,ALZH11 

SELECT READ XLATE FLT 

001B72 

OA 

DO 




ALZC30 SVC 

X' DO' 

ERR 008 - PROB IN INHIBIT LINES AND/ 

001B74 

44 





DC 

X * 44 * 

OR CTLS OR SENSE AMPS - BOT (NA.NX. 

001B75 

07 





DC 

X * 07 * 

NP)(D.NA.NX.P) 

001B76 

FDD4 




DC 

AL2(ERR008-BASE6REG) 


001B78 

47 

FO 

F 

CDA 


BC 

ALWAYS,LGOUTA 

GO SEE IF WANT LOG OUT 

001B7C 

91 

02 

F 

80D 


ALZC40 TM 

PRCKRD,X*02• 

BR IF GOT XLATE 

001B80 

47 

10 

F 

B9E 


BC 

ALLON,ALZC50 

*» 

001884 

91 

04 

F 

80D 


TM 

PRCKRD,X*04* 

BR IF DID NOT GET PARITY 

001B88 

47 

80 

F 

C06 


BC 

ALLOFF,ALZEOO 

t * 

001B8C 

91 

04 

F 

809 


TM 

PWCKRD,X'04* 

BR IF GOT PARITY ON PUNCH WRITE 

001B90 

47 

10 

F 

BBO 


BC 

ALLON,ALZC60 

»» 

001B94 

OA 

DO 




SVC 

X ' DO' 

ERR 009 - PROB IN PARITY INHIBIT 

001B96 

44 





DC 

X 1 44 * 

LINE OR CTLS OR PARITY SENSE AMP OR 

001B97 

07 





DC 

X *07* 

HAVE INTERMITTENT PARITY - GOT 

001B98 

FDDB 




DC 

AL2(ERR009-BASE6REG) 

(NA.NX.NP)(ND.NA.NX.P) 

001B9A 

47 

FO 

F 

CDA 


BC 

ALWAYS,LGOUTA 

GO SEE IF WANT LOG OUT 

001B9E 

OA 

DO 




ALZC50 SVC 

X»DO« 

ERR 010 - FALSE READ XLATE PROB IN 

001BAO 

44 





DC 

X 1 44 * 

READ XLATE CHECK CKTS - GOT 

001BA1 

07 





DC 

X • 07 * 

(NA.NX.NP)(ND.NA.X) 

001BA2 

FDE2 




DC 

AL2(ERR010-BASE6REG) 


001BA4 

47 

FO 

F 

CDA, 


BC 

ALWAYS,LGOUTA 

GO SEE IF WANT LOG OUT 

001BA8 ■ 

92 

85 

F 

7 9 C 


ALZC51 MVI 

SCHNUM,X•85 1 

SET UP TO SEARCH FOR PCH XLATE FLT 

001BAC 

47 

FO 

F 

CDE 


BC 

ALWAYS,LGOUTO 

GO SEE IF WANT LOG OUT 

001BBO 

OA 

DO 




ALZC60 SVC 

X' DO • 

ERR 026 - FALSE PARITY CHECK - GOT 

001BB2 

44 





DC 

X 1 44 * 

(NA.NX.P)(ND.NA.NX.P) 

001BB3 

07 





DC 

X ' 07 * 


001BB4 . 

FE52 




DC 

AL2(ERR026-BASE6REG) 


001BB6 

47 

FO 

F 

CDA 


BC 

ALWAYS,LGOUTA 

GO SEE IF WANT LOG OUT 


************************************************************************* 


COME HERE IF GOT (NA. X ) - CHECK PRCKRD HERE 
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001C54 

47 

80 

F 

C62 



BC 

EQUAL,ALZG10 

t » 

001C58 

OA 

DO 





SVC 

X * DO' 

ERR 018 - READ BUFFER OR DIAG WRITE 

C01C5A 

44 






DC 

X * 44 • 

RPOB - GOT (NA.NX.NPHND.NA.NX.NP) 

001C5B 

07 






DC 

X * 07 1 

(NA.NX.NP)(D.NA) 

001C5C 

FE1A 





DC 

AL2(ERR018-BASEGREG) 


001C5E 

47 

FO 

F 

CB6 



BC 

ALWAYS,ALZH11 

SELECT READ XLATE FLT 

001C62 

91 

02 

F 

816 



ALZG10 TM 

RRCKRD,X'02‘ 

BR IF DID NOT GET XLATE 

001C66 

47 

80 

F 

C74 



BC 

ALLOFF,ALZG20 

» t 

001C6A 

OA 

DO 





SVC 

X 'DO * 

ERR 019 - READ XLATE CHECK FALSE AND 

001C6C 

44 






DC 

X' 44' 

INTERMITTENT - GOT (NA.NX.NP)(ND.NA. 

001C6D • 

07 






DC 

X' 07' 

NX.NP)(NA.NX.NP)(ND.NA.X) 

001C6E 

FE21 





DC 

AL2(ERR019-BASE6REG) 


001C70 

47 

FO 

F 

BA8 



BC 

ALWAYS,ALZC51 

SET UP SEARCH NO. FOR PCH XLATE FLT 

001C74 

91 

04 

F 

816 



ALZG20 TM 

RRCKRD,X'04« 

BR IF GOT PARITY 

001C78 

47 

10 

F 

C8A 



BC 

ALLON,ALZG30 

» t 

001C7C 

15 

12 





CLR 

GR1»GR2 

BR IF END 

001C7E 

47 

80 

F 

CDE 



BC 

EQUAL,LGOUTO 

• * 

001C82 

5E 

10 

F 

D80 



AL 

GR1,ALZKA1 

GET NEXT GROUP OF DATA 

001C86 

47 

FO 

F 

B1C 



BC 

ALWAYS,ALZB10 

» t 

001C8A 

OA 

DO 





ALZG30 SVC 

X' DO • 

ERR 020 - INTERMITTENT PARITY PROB - 

001C8C 

44 






DC 

X ' 44' 

GOT (NA.NX.NP)(ND.NA.NX.NP)(NA.NX. 

001C8D 

07 






DC 

X * 07 • 

NP)(ND.NA.NX.P) 

001C8E 

FE28 





DC 

AL2 (ERR020-BASECREG) 


001C90 

47 

FO 

F 

CDA 



ALZG40 BC 

ALWAYS,LGOUTA 

GO SEE IF WANT LOG OUT 
















* COME 

HERE IF GOT (NA.X.NP)(D.NA.X)(NA.NX.NP) - CHECK * 








* RRCKRD HERE 

• 








*********************************************************************** 

001C94 

D5 

00 

F 

805 

F 

813 

ALZHOO CLC 

PCHWR(1),RDRD 

BR IF DATA READ FROM READ BUFF OK 

001C9A 

47 

80 

F 

CBE 



BC 

EQUAL,ALZH20 

* t 

001C9E 

91 

02 

F 

816 



TM 

RRCKRD,X»02* 

BR IF GOT XLATE 

001CA2 

47 

10 

F 

CBO 



BC 

ALLON,ALZH10 

» * 

001CA6 

OA 

DO 





SVC 

X 1 DO' 

ERR 021 - MULTIPLE ERRORS - GOT 

001CA8 

44 






DC 

X' 44 * 

(NA.X.NP)(D.NA.X)(NA.NX.NP)(D.NA.NX 

001CA9 

07 






DC 

X' 07 * 


001CAA 

FE2F 





DC 

AL2(ERR021-BASECREG) 


001CAC 

47 

FO 

F 

CDA 



BC 

ALWAYS,LGOUTA 

GO SEE IF WANT LOG OUT 

001C80 

OA 

DO 





ALZH10 SVC 

X * DO * 

ERR 022 - PROB IN DATA REG OR READ 

001CB2 

44 






DC 

X' 44 * 

XLATOR - GOT (NA.X.NP)(D.NA.X) 

001CB3 

07 






DC 

X * 07' 

(NA.NX.NP)(D.NA.X) 

001CB4 

FE36 





DC 

AL2(ERR022-BASECREG) 


001C86 

92 

84 

F 

79C 



ALZH11 MVI 

SCHNUM,X' 84 * 

SET UP TO SELECT READ XLATE FLT 

001CBA 

47 

FO 

F 

CDE 



BC 

ALWAYS,LGOUTO 

GO SEE IF WANT LOG OUT 

OOICBE 

91 

02 

F 

816 



ALZH20 TM 

RRCKRD,X'02' 

BR IF GOT XLATE 

001CC2 

47 

10 

F 

CDO 



BC 

ALLON,ALZH30 

, , 

001CC6 

OA 

DO 





SVC 

X 1 DO * 

ERR 023 - MULTIPLE ERRORS - GOT 

00 IC'C 8 

44 






DC 

X' 44 ' 

ERR 023 - MULTIPLE ERRORS - GOT 

001CC9 

07 






DC 

X' 07' 

NX) 

001CCA 

FE3D 





DC 

AL2(ERR023-BASE8REG) 


001CCC 

47 

FO 

F 

CDA 



BC 

ALWAYS,LGOUTA 

GO SEE IF WANT LOG OUT 

001CD0 

OA 

DO 





ALZH30 SVC 

X ' DO' 

ERR 024 - PROBLEM IN PUNCH XLATOR 

001CD2 

44 






DC 

X • 44 » 

GOT (NA.X.NP)(D.NA.X)(NA.NX.NP) 

001CD3 

07 






DC 

X • 07 ■ 

(ND.NA.X) 

001CD4 

FE44 





DC 

AL 2(E RR024-BASE GREG) 


001C06 

47 

FO 

F 

BA8 



BC 

ALWAYS,ALZC51 

SET UP SEARCH NO. FOR PCH XLATE FLT 








*********************************************************************** 








* 

DATA ACCUMULATION TABLE IS LOGGED OUT HERE 








•a-#*********# 

*********************************************************** 

001CDA 

92 

FF 

F 

79C 



LGOUTA MVI 

SCHNUM,X'FF' 

SET UP TO BYPASS ALL REMAINING OVLYS 

001CDE 

91 

20 

F 

004 



LGOUTO TM 

SNSW,X'20* SEE 

IF SEC SS 02 IS 1 - LOGOUT WANTED 

001CE2 

47 

10 

F 

CEA 



BC 

ALLON,LGOUT BR 

IF YES 

001CE6 

47 

FO 

F 

D40 



BC 

ALWAYS,LGOUTX 


001CEA 

41 

10 

F 

805 



LGOUT LA 

GR1 , DATAWK 

LOAD GR 1 WITH A DDR OF LOG OUT 

001CEE 

D2 

13 

F 

805 

1 

000 

LG0UT1 MVC 

DATAWKI20),0(GR1) 

SET UP DATA FOR PRINTOUT 

001CF4 

OA 

DD 





SVC 

X ' DD ' 

CONVERT TO PRINT FORM 

001CF6 

0012 





DC 

AL2(18) 

18 HEX BYTES 

001CF8 

0805 





DC 

AL2 ( DATAWK-SECST) 

HEX DATA ADDRESS 
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001CFA 

07E0 





DC 

AL2(ALZV01816-SECST) 

PRINT ADDRESS 

001CFC 

41 

60 

F 

7EB 



LA 

GR6,ALZV01S27 

SET CK ADDR FOR RD/WR DATA 

001D00 

41 

00 

F 

802 



LA 

GRG,ALZVQ1850 

SET UP MAX PACKED ADDR 

001D04 

41 

30 

F 

7E0 



LA 

GR3,ALZV01S16 

INIT INDEX 3 - USED TO ADDR PACKED 

001008 

41 

40 

F 

7 DO 



LA 

GR4,ALZV01 

INIT INDEX 4 - USED TO ADDR UNPACK 

001 DOC 

D2 

01 

4 

000 3 000 

LG0UT2 

MVC 

0(2,GR4),0(GR3) 

MOVE CHARACTERS 

001D12 

41 

33 

0 

002 



LA 

GR3,2(GR3,0) 

UPDATE PACK INDEX BY 2 

001D16 

15 

46 





CLR 

GR4,GR6 

ARE WE AT 1ST RD/WR CHAR 

001D18 

47 

60 

F 

D24 



BC 

NEQUAL,LG0UT3 

BRANCH IF NO 

001D1C 

41 

44 

0 

002 



LA 

GR4,2(GR4,0) 

UPDATE UNPACK ADDR INDEX BY 2 

001D20 

47 

FO 

F 

DOC 



BC 

ALWAYS,LG0UT2 

GO MOVE NEXT CHAR 

001D24 

92 

40 

4 

002 


LG0UT3 

MVI 

2(GR4)*X*40* 

MOVE BLANK 

001D28 

41 

44 

0 

003 



LA 

GR4,3(GR4,0) 

UPDATE UNPACK ADDR INDEX BY 3 

001D2C 

15 

30 





CLR 

GR3,GR0 

WERE ALL POSITIONS MOVED 

001D2E 

47 

60 

F 

DOC 



BC 

NEQUAL,LG0UT2 

GO MOVE NEXT CHAR IF NOT 

001D32 

OA 

DO 





SVC 

X’DO* 

LOG OUT TABLE 

001D34 

80 






DC 

X • 80* 


001D35 

34 






DC 

X • 34 * 


001D36 

F7D0 





DC 

AL2(ALZV01-BASECREG) 


001D38 

15 

12 





CLR 

GR1»GR2 

BR IF NOT END 

00ID3A 

47 

60 

F 

D50 



BC 

NEQUAL,LG0UT4 

»t 

001D3E 

OA 

DA 





SVC 

X * DA * SET 

SENSE SWS AS DESIRED, THEN INTERRUPT 

001D40 

91 

40 

F 

004 


LGOUTX 

TM 

SNSW,X * 40• SEE 

IF SEC SS 01 IS 1 - USE SCOPE RTN 

001D44 

47 

80 

F 

D4C 



BC 

ALLOFF,LGOUTY 

BR IF NO 

001D48 

45 

80 

F 

63E 



BAL 

GR8,SCPROO BR 

TO SCOPE ROUTINE 

001D4C 

47 

FO 

F 

6EC 


LGOUTY 

BC 

ALWAYS,EXIT 

ROUTINE EXIT 

001D50 

5E 

10 

F 

D80 


LG0UT4 

AL 

GR1,ALZKA1 

ADD 20 TO GR1 

001D54 

47 

FO 

F 

CEE 



BC 

ALWAYS,LG0UT1 








* 

* 


CONSTANTS 








* 

* 


CCW TABLE 


001D58 







CNOP 

0,8 

DOUBLE WORD ALIGNMENT 

001D58 

01 

001805 2000 

0001 

PWRCCW 

CCW 

X»01*,PCHWR,X»20»,1 

DIAG WRITE TO PNCH BUFF, SLI ON 

001D60 

25 

00180E 2000 

0002 

RWRCCW 

CCW 

X * 25 *,RDWR,X*20* ,2 

DIAG WRITE TO RD BUFF -SLI ON 

001D68 

C2 

00180A 2000 

0001 

PRDCCW 

CCW 

X*C2',PCHRD,X*20»,1 

DATA READ FOR PUNCH BUFF, SLI ON 

001D70 

C2 

001813 2000 

0001 

RRDCCW 

CCW 

X • C2 *,RDRD,X'20*,1 

DATA READ FROM READ BUFF, SLI ON 

001D78 

C6 

001804 2000 

0001 

CRDCCW 

CCW 

X'C6*,CKRDAR,X*20*,1 

DIAG CHECK READ CCW, SLI ON 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 
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F8041 
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OVERLAY 

02- 


.*.—.. 

001DF7 

C5D9D940F0F1F3 

ERR013 

DC 

C 1 ERR 013' 

MULTIPLE ERRORS -APPEAR TO HAVE 1 



* 



,, FALSE PUNCH 8 READ TRANSLATE CK i 

001DFE 

C5D9D940F0F1F4 

ERR014 

DC 

C 1 ERR 014* 

FALSE PARITY CHECK 1 

001E05 

C5D9D940F0F1F5 

ERR015 

DC 

C * ERR 015* 

FALSE PUNCH TRANSLATE CHECK j 

001E0C 

C5D9D940F0F1F6 

ERR016 

DC 

C * ERR 016* 

MULTIPLE ERRORS - FALSE TRANSLATE CK j 

001 El 3 

C5D9D940F0F1F7 

ERR017 

DC 

C * ERR 017* 

FALSE PARITY CHECK j 

001E1A 

C5D9D940F0F1F8 

ERR018 

DC 

C * ERR 018* 

READ BUFFER OR DIAG WRITE PROBLEM f 

001E21 

C5D9D940F0F1F9 

ERR019 

DC 

C* ERR 019* 

INTERMITTANT FALSE READ XLATE CHECK j 

001E28 

C5D9D940F0F2F0 

ERR020 

DC 

C 1 ERR 020* 

INTERMITTANT PARITY CIRCUIT PROBLEM 1 

001E2F 

C5D9D940F0F2F1 

ERR021 

DC 

C • ERR 021* 

MULTIPLE ERRORS 

001E36 

C5D9D940F0F2F2 

ERR022 

DC 

C'ERR 022* 

DATA REG OR READ XLATE PROBLEM 

001E3D 

C5D9D940F0F2F3 

ERR023 

DC 

C * ERR 023* 

MULTIPLE ERRORS 

001E44 

C5D9D940F0F2F4 

ERR024 

DC 

C * ERR 024* 

PUNCH TRANSLATOR PROBLEM f 

001E4B 

C5D9D940F0F2F5 

ERR025 

DC 

C *ERR 025* 

PUNCH TRANSLATOR PROBLEM 

001E52 

C5D9D940F0F2F6 

ERR026 

DC 

C * ERR 026* 

FALSE PARITY CHECK 



* 


EQUATES 

* J 



* 

GENERAL EQUATES 

* 1 


001805 

PCHWR 

EQU 

DATAWK 



001806 

PWSTA1 

EQU 

DATAWK81 

I 


001807 

PWSTA2 

EQU 

DATAWKS2 

| 


001808 

PWSNS 

EQU 

DATAWK&3 

! 


001809 

PWCKRD 

EQU 

DATAWK84 

j 


00180A 

PCHRD 

EQU 

DATAWKS5 

j, 


00180B 

PRSTA 

EQU 

DATAWK86 



00180C 

PRSNS 

EQU 

DATAWK87 

1 


00180D 

PRCKRD 

EQU 

DATAWKS8 

£ 


00180E 

RDWR 

EQU 

DATAWKG9 

| 


001810 

RWSTA 

EQU 

DATAWK&11 



001811 

RWSNS 

EQU 

DATAWKC12 

| 

- 

001812 

RWCKRD 

EQU 

DATAWK813 

« , 1 


001813 

RDRD 

EQU 

DATAWK814 

| 


001814 

RRSTA 

EQU 

DATAWK815 

| 


001815 

RRSNS 

EQU 

DATAWKC16 

i 


001816 

RRCKRD 

EQU 

DATAWKG17 

f 



* 

GENERAL REGISTER EQUATES 

. » 


*********************************************************************** 


001D80 00000014 

001D84 F2F8F2F140E2C3C1D5 

001D8D 61F2F5F4F06B40 

001D94 C3D605E3D9D6D340D7 

001D9D D9D6C7D9C1D4 


******************************************************* ****** «******•«» 
» CONSTANTS FOR ANALYZE ROUTINE - WORD BOUNDARY * 

************************************************************************ 
ALZKA1 DC XL4* 14* CONSTANT FOR RTN AOO 


*********************************************************************** 
TITLE1 DC C *2821 SCAN/2540, • 

DC C'CONTROL PROGRAM* 


************************************************** ********* ************ 

* DEFINITION OF ERROR MESSAGES 


ft********************* ************************************* ft* ft* ******** 


001DA3 

C5D9D940F0F0F1 

ERR001 DC 

C * ERR 

001 • 

BUFFER ADDRESSING PROBLEM 

001DAA 

C5D9D940F0F0F2 

ERR002 DC 

C * ERR 

002 * 

*** RESERVED **» 

001DB1 

C5D9D940F0F0F3 

ERR003 DC 

C 1 ERR 

003* 

*** RESERVED *** 

001DB8 

C5D9D940F0F0F4 

ERR004 DC 

C * ERR 

004* 

*** RESERVED *** 

001DBF 

C5D9D940F0F0F5 

ERR005 DC 

C * ERR 

005* 

READ XLATE TO CHAN REG PROBLRM 

001DC6 

C5D9D940F0F0F6 

ERR006 DC 

C 1 ERR 

006* 

BUFFER INHIBIT LINES AND/OR CONTROLS 



* 



,, OR SENSE AMPS 

001DCD 

C5D9D940F0F0F7 

ERR007 DC 

C * ERR 

007* 

READ XLATE TO CHAN REG PROBLRM 

001DD4 

C5D9D940F0F0F8 

ERR008 DC 

C * ERR 

008* 

BUFFER INHIBIT LINES AND/OR CONTROLS 



« 



,, OR SENSE AMP 

001DDB 

C5D9D940F0F0F9 

ERR009 DC 

C * ERR 

009* 

PROS IN PARITY INHIBIT LINES OR 



* 



,, HAVE INTERMITTANT PARITY 

001DE2 

C5D90940FOFIFO 

ERR010 DC 

C * ERR 

010* 

FALSE READ XLATE PROB IN READ XLATE 



* 



,, CHECK CIRCUITS 

001DE9 

C5D9D940F0FIF 1 

ERR011 DC 

C • ERR 

Oil« 

DATA REGISTER PROBLEM 

001DF0 

C5D9D940F0F1F2 

ERR012 DC 

C * ERR 

012* 

FALSE PUNCH TRANSLATE CHECK 
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l 

i 


DATE 

EC 


000000 

GRO 

EQU 

0 

000001 

GR1 

EQU 

1 

000002 

GR2 

EQU 

2 

000003 

GR3 

EQU 

3 

000004 

GR4 

EQU 

4 

000005 

GR5 

EQU 

5 

000006 

GR6 

EQU 

6 

000007 

GR7 

EQU 

7 

000008 

GR8 

EQU 

8 

000009 

GR9 

EQU 

9 

00000A 

GRA 

EQU 

10 

OOOOOB 

GRB 

EQU 

11 

OOOOOC 

GRC 

EQU 

12 

000000 

GRD 

EQU 

13 

OOOOOE 

GRE 

EQU 

14 

OOOOOF 

GRF 

EQU 

15 


***#*****-***************•*’«•»'»**-»*»•*» ********************************** 
* CONDITION CODE EQUATES * 

*********************************************************************** 


000078 

HION 

EQU 

120 

HARDWARE I/O 

NEW 

PSW 

LOCATION 

000008 

ALLOFF 

EQU 

8 

ALL OFF 

0 



000005 

ANYON 

EQU 

5 

ANY ON 


1 

3 

00-0001 

ALLON 

EQU 

1 

ALL ON 



3 

000004 

MIXED 

EQU 

4 

MIXED 


1 


000009 

NMXXED 

EQU 

9 

NOT MIXED 

0 


3 

000008 

EQUAL 

EQU 

8 

EQUAL 

0 



000006 

NEQUAL 

EQU 

6 

NOT EQUAL 


1 2 


000004 

LOW 

EQU 

4 

LOW 


1 



15JUL65 17MAR66 

124265 125643 


ID F804-1 
PAGE 16A 


| 
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o o o o o o 


o o o o o 
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000002 

HIGH 

EQU 

2 

HIGH 



2 


000003 

ZERO 

5QU 

8 

ZERO 

0 




000002 

GZERO 

EQU 

2 

GREATER ZERO 



2 


000008 

AVAIL 

EQU 

8 

AVAILABLE 

0 




000004 

CSWST 

EQU 

4 

CSW STORED 


1 



000002 

BUSY 

EQU 

2 

BUSY 



2 


OOOOOF ' 

ALWAYS 

EQU 

15 

UNCONDITIQNL 

0 

1 

2 

3 

OOOOOD 

NOTBSY 

EQU 

13 

NOT BUSY 

0 

1 


3 

000007 

NZERO 

EQU 

7 

NOT CC 0 


1 

2 

3 

000004 

NOTZRO 

EQU 

4 

NOT ZERO -AND- 


1 



OOOOOC 

MIXNON 

EQU 

12 

MIXED OR NONE 

0 

1 



OOFOOO 

REG 

EQU 

X'FOOO* 






001000 

BASE 

EQU 

SECST 







END 






§ 

"fw 


DATE 15JUL65 17MAR66 

# EC 124265 125643 
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POST ASSEMBLY DATA. 
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REFERENCES TO DEFINED SYMBOLS. 


1 

1048 

CAW 

1990, 

19C8, 

19F6, 

1A28 , 

1A72 



1 

1040 

CSW 








1 

0 

GRO 

1980, 

1990, 

19C4, 

19C8, 

19F2, 

19F6, 

1A24 




1A28, 

1A60, 

1A64, 

1A6E , 

1A72 , 

1D00, 

1D2C 

1 

1 

GR1 

1ACA, 

1AD2, 

1AF 8, 

1AFE , 

1B14# 

1B1C, 

1C7C 




1C82, 

1CEA, 

1CEE, 

1D38, 

1D50 



1 

2 

GR2 

1 ACE, 

1AF8, 

IB 18, 

1C7C, 

1D38 



1 

3 

GR3 

1D04, 

1D0C, 

1012, 

1D12, 

1D2C 



1 

4 

GR4 

1D08, 

1D0C, 

1D16, 

1D1C, 

1D1C , 

1D24, 

1D28 




1028 







1 

5 

GR5 








1 

6 

GR6 

1CFC# 

1016 






1 

7 

GR7 








1 

8 

GR8 

1970, 

1D48 






1 

9 

GR9 

1974, 

197A, 

1A56, 

1A5C, 

1A5C# 

1A64 


1 

A 

GRA 

19BA, 

19E8, 

1A1A, 

1A4C, 

1AC8 



1 

B 

GRB 

199C, 

19D0, 

19FE, 

1A34, 

1A8E 



1 

C 

GRC 

1978, 

1978, 

1998# 

1A30, 

1A76, 

1A82 


1 

D 

GRO 








1 

E 

GRE 








1 

F 

GRF 








l 

4 

LOW 








1 

FOOO 

REG 

1966, 

1AC2, 

1B0A, 

1B50, 

1B5A, 

I860 v 

1B76 




1B98, 

18A2, 

1BB4, 

1BDA# 

1BE4# 

1BF6, 

1C00 




1C1A, 

1C24, 

1C36, 

1C 48, 

1C5C , 

1C6E y 

1C8E 




1CAA, 

1CB4, 

ICC A, 

1CD4, 

1D36 



1 

12E8 

SIO 

199C, 

19D0, 

19FE, 

1A34, 

1A8E 



1 

1000 

BASE 

1966, 

1AC2, 

1B0A, 

1B50, 

1B5A, 

1B6C , 

1B76 




1B98, 

1BA2, 

1B84, 

1BDA, 

1BE4, 

1BF6, 

1C00 




1C1A, 

1C24, 

1C36, 

1C48, 

1C5C, 

1C6E, 

1C8E 




1CAA, 

1CB4, 

1CCA, 

1CD4, 

1D36 



1 

2 

BUSY 








1 

16 EC 

EXIT 

1952, 

1D4C 






1 

48 

HCAW 








1 

40 

HCSW 








1 

2 

HIGH 








1 

78 

HI ON 








20 

1813 

RDRD 

1BCC, 

1C4E, 

1C94, 

1D70 




20 

180E 

RDWR 

1D60 







1 

1004 

SNSW 

195A, 

1968, 

1CDE, 

1040 




1 

1231 

UAPU 

1AAA 







1 

12 2D 

UARD 

1AB8 







1 

8 

ZERO 








1 

1 

ALL ON 

19A4, 

19D8, 

1A06, 

1A3C, 

1A96, 

1A9E # 

1 ADC 




1AE4, 

1AEC, 

1AF4, 

1826, 

1B40, 

1848, 

1864 




1B80, 

1B90, 

1BC8, 

1BEE, 

1C0A, 

1C78, 

1CA2 




1CC2, 

1CE2 







1 

5 

ANY ON 

1 

8 

AVAIL 

1 

UFA 

CSW AG 

1 

4 

CSWST 

9 

1841 

DAT AO 

9 

1855 

DAT A1 

9 

1869 

DAT A2 

9 

187D 

DAT A3 

9 

1391 

DAT A4 

9 

18A5 

DAT A5 

9 

1SB9 

DAT A6 

9 

18CD 

DAT A7 

9 

IS El 

DAT A8 

9 

13F5 

DAT A9 


ID F304-1 DATE 15JUL65 17MAR66 

PAGE 17 EC 124265 125643 


ID F804-1 
PAGE 17A 
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* F8041 2821 SCAN/2540 READER/PUNCH 
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* F8041 2821 SCAN/2540 READER/PUNCH 

F8041 CONTROL PROGRAM -ROUTINE OVERLAY 02- 


9 

1909 

DATAB 







1 

8 

EQUAL 

193C, 

1C9A 

1AFA, 

1B30, 

1BC0, 

1BD2, 

1C54 

1 

2 

GZERO 







4 

1CEA 

LGOUT 

1CE2 






1 

1202 

MESS1 

1AAA, 

1AB8, 

1AC2 




1 

4 

MIXED 







1 

7 

NZERO 







20 

180A 

PCHRD 

1B2A, 

1BBA, 

ID 68 




20 

1805 

PCHWR 

1B2A, 

1BBA, 

1BCC, 

1C4E, 

1C94, 

1D58 

20 

180C 

PRSNS 

19E2, 

1B44 





20 

180B 

PRSTA 

19DC 






20 

1808 

PWSNS 

19B4 






20 

1815 

RRSNS 

1A46 






20 

1814 

RRSTA 

1A40 






1 

1934 

RTN02 

1015 






20 

1811 

RWSNS 

1A10 






20 

1810 

RWSTA 

1A0A 






1 

1000 

SECST 

1000, 

1000, 

1000, 

1000, 

1000, 

1000 




1000, 

1000, 

1000, 

1000, 

1000, 

1000 




1000, 

1000, 

1000, 

1000, 

1000, 

1000 




1000, 

1E59 

1000, 

1000, 

1000, 

1018, 

1CF8 

1 

11F7 

SENSE 

19B4, 

19E2, 

1A10, 

1A46 



1 

10E0 

UNIT1 







1 

10E4 

UNIT2 







1 

8 

ALLOFF 

1946, 

195E, 

196C, 

1A7E , 

1AA6, 

1A84 




1888, 

1C12, 

1C2E, 

1C40, 

1C66, 

1D44 

1 

F 

ALWAYS 

1A6A, 

1AA2, 

1AC4, 

1AC8, 

1B02, 

1B10 




1B5C, 

1B6E y 

1B78, 

1B9A , 

1BA4, 

13AC 




1BDC, 

1BE6, 

1BF8, 

1C02, 

1C1C, 

1C26 




1C4A, 

1C5E, 

1C70, 

1C86, 

1C90, 

1CAC 




1CCC, 

1CD6, 

1CE6, 

1020, 

1D4C , 

1D54 

4 

1ACA 

ALZAOO 

1A6A 






6 

1A02 

ALZA10 

1B02 






2 

1 B06 

ALZA20 

1ADC, 

1AE4, 

1AEC, 

1AF4 



4 

1B14 

ALZBOO 

1AFA 






6 

1B1C 

ALZ 810 

1C 86 






6 

1B2A 

ALZCOO 







2 

1B56 

ALZC10 

1B40, 

1B48 





4 

1B60 

ALZC20 

1B38 






2 

1B72 

ALZC30 

IB 64 






4 

1B7C 

ALZC40 

1B30 






2 

1B9E 

ALZC50 

1B80 






4 

1BA8 

ALZC51 

1BE6, 

1C70, 

1CD6 




2 

1BBO 

ALZC60 

1B90 






6 

1BBA 

ALZ DOO 

IB 26 






2 

1BEO 

ALZD01 

1BD2 






4 

1 BE A 

ALZ DIO 

1BC0 






2 

1BFC 

ALZ020 

18EE 






4 

1C06 

ALZEOO 

1B88 






2 

1C20 

ALZ E10 

1C0A 






4 

1C2 A 

ALZ FOO 

1BC8 






4 

1C3C 

ALZ F10 

1C2E 






6 

1C4E 

ALZGOO 

1C12 






4 

1C62 

ALZG10 

1C54 






4 

1C74 

ALZG20 

1C66 






2 

1C8 A 

ALZG30 

1C78 






4 

1C90 

ALZG40 







6 

1C94 

ALZHOO 

1C40 






2 

1CB0 

ALZH10 

1CA2 






4 

1C86 

ALZ HI1 

1352, 

186E, 

1BDC, 

1C5E 



4 

1CBE 

ALZH20 

1C9A 






2 

1CD0 

ALZH30 

1CC2 






4 

1080 

ALZKA1 

1AFE, 

1C82, 

1050 




52 

17D0 

ALZV01 

1CFA, 

1CFC, 

1000, 

1004, 

1D08, 

1D36 

1 

114C 

CAWKEY 







1 

1804 

CKRDAR 

19BE, 

19EC, 

1A1E, 

1A50, 

1A86, 

1A9A 


DATE 15JUL65 17MAR66 

EC 124265 125643 



8 

1D78 

CRDCCW 

1C7E 

1 

112C 

CSWSAV 


4 

1974 

DAT AOO 


6 

197 A 

DAT A10 


9 

182D 

DAT All 


9 

1819 

DAT A12 


6 

19B4 

DAT A20 


4 

19C4 

DAT A30 


4 

19F2 

DAT A40 


4 

1A24 

DAT A50 


6 

1A56 

DAT A60 


9 

19 ID 

DAT AEX 


20 

1805 

DATAWK 






6 

1 AAA 

DGCK10 





4 

1A6E 

DGCKRD 

1000 




7 

1DA3 

ERR001 

1000 




7 

1DAA 

ERR002 

1000 




7 

1DB1 

ERR003 

1CFA 




7 

1DB8 

ERR004 





7 

1 DBF 

ERR005 





7 

1DC6 

ERR006 





7 

1DC0 

ERR007 





7 

1DD4 

ERR008 

1B38 




7 

1 DOB 

ERR009 





7 

1DE2 

ERR010 

1B52 




7 

1DE9 

ERR011 

1BB6 




7 

1DF0 

ERR012 

1C38 




7 

1DF7 

ERR013 

1CBA 




7 

1DFE 

ERR014 





7 

1E05 

ERR015 





7 

1E0C 

ERR016 





7 

1E13 

ERR017 





7 

1E1A 

ERR018 





7 

1E21 

ERR019 





7 

1E28 

ERR020 





7 

1E2F 

ERR021 





7 

1E3& 

ERR022 





7 

1E3D 

ERR023 





7 

1E44 

ERR024 





7 

1E4B 

ERR025 





7 

1E52 

ERR026 




1 

1 

16E6 

EXITBY 




i 

4 

1942 

INITOO 





4 

194E 

INIT05 





4 

1968 

INITIO 





4 

1CDE 

LGOUTO 



i 


6 

1C EE 

LGOUT1 



1 


6 

1 DOC 

LG0UT2 





4 

1D24 

LG0UT3 





4 

1050 

LG0UT4 



j 


4 

1CDA 

LGOUT A 



| 


4 

1040 

LGOUTX 



s 


4 

1D4C 

LGOUTY 



I 


1 

C 

MIXNON 



1 


1 

6 

NEQUAL 





1 

9 

NMIXED 





1 

D 

NOTBSY 





1 

4 

NOTZRO 





20 

180D 

PRCKRD 




f 

8 

1D68 

PRDCCW 





1 

1931 

PROGSW 





20 

1809 

PWCKRD 

1078 



1 

8 

1D58 

PWRCCW 


ID 

F804-1 

! DATE 

15JUL65, 17MAR66 


PAGE 

18 

EC 

124265 

125643 


1A6E 

19A8f 19DC, 1A0A, 1A40 

196C 

1A66, 1AC4 
1974, 1ACA, 1B14 


1A60, 

1ACE, 

1B18 





197A, 

1984, 

1984, 

198A, 

198A , 

1A56, 

1AD2 

1B1C, 

1CEA, 

1CEE , 

1CF8, 

1E59, 

1E59 , 

1E59 

1E59, 

1E59, 

1E59, 

1E59, 

1E59, 

1E59, 

1E59 

1E59, 

1A9E 

1E59, 

1E59, 

1E59, 

1E59, 

1E59, 

1E59 

19BA, 

1B0A 

19E8, 

1A1A, 

1A4C 





1B50 

1B5A 

1B6C 

1B76 

1B98 

1BA2 

1BDA 

1BF6 

1C00 

1C1A 

1C24 

1C36 

1C48 

1C5C 

1C6E 

1C8E 

1CAA 

1CB4 

1CCA 

1CD4 

1BE4 

1BB4 


193C, 

1946 

19A4, 

19D8, 

1A06, 

1A3C, 

1A96 


195E 

IB 10, 

1BAC, 

1C7E, 

1CBA 




1054 

1D20, 

1D18 

1D2E 






1D3A 

1B5C, 

1B78, 

1B9A, 

1BA4, 

1BB6, 

1BF8, 

1C02 

1C1C, 

1CE6 

1D44 

1C26, 

1C38, 

1C4A, 

1C90, 

1CAC, 

1CCC 

1952, 

1A66, 

1D18, 

1D2E, 

1D3A 



19EC, 

1AE0, 

1AF0, 

1B34, 

1B3C, 

1B60, 

1B7C 

1B84, 

19C4 

1BC4, 

1BEA 





1942, 

1956 






19BE, 

1AD8, 

1322, 

1B8C 





1980 


ID 

PAGE 


1 


O O 'O o o o 




840258 

18A 


F804-1 

18A 


O 


O 
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* F8041 2821 SCAN/2540 READER/PUNCH 

F8041 CONTROL PROGRAM -ROUTINE OVERLAY 02- 


20 1806 PWSTA1 19A8 

20 1807 PWSTA2 19AE 

2 1AC8 RETNCR 1AA2, 1AA6 

20 1816 RRCKRD 1A50, 1C62, 1C74, 1C9E, 1CBE 

8 1D70 RRDCCW 1A24 

20 1812 RWCKRD 1A1E, 1AE8, lC06 f 1C0E, lC2A f 1C3C 

8 1D60 RWRCCW 19F2 _ , 

1 179C SCHNUM 1938* 194A, 194E, 1B0C, 1BA8* 1CB6* 1CDA 

I 1234 SCPDAT 

1 163E SCPROO 1970, 1D48 

1 114D SIOSWS 1994, 19A0, 19CC, 19D4, 19FA, 1A02, 1A16 

1A2C, 1A38, 1A7A, 1A8A, 1A92, 1AB0 

1 112C SI0VR3 

1 1134 SI0VR4 

1 11F8 ST AT SV 19AE 

16 1D84 TITLE1 1966 

1 10E2 UNIADR 1A30, 1A82 

1 10E6 UN2ADR 1998, 1A76 

1 1000 XF8041 


NO ERROR DETECTED IN ABOVE ASSEMBLY 






DATE 

EC 


15JUL65 17MAR66 

124265*; 125643 


ID F804-1 
PAGE 19 


Q C © © © © © © G CCCCCCC© 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


P/N 840258 
PAGE 19A 


F804 2821 SCAN/2540 READER/PUNCH 

F804 CHANNEL REG FLT -ROUTINE OVERLAY 1- 


PERIODS CORRESPOND TO BLANK COLUMNS. 


COLS. 1 THROUGH 20 

COLS. 21 THROUGH 40 

COLS. 41 THROUGH 60 

COLS. 61 THROUGH 80 



.840 

259.125643..80410001 

bEbD......AA..AAXF80 

9 YQ Y9 

99 9 

YQY Y 8 

999 99 



BTXT.AAA..A 8 ..AA 8 DAA 

9 YQY Y9 Y9 9QY 

999 9 9 99 

AAAAAAAAABAAADAAGAQU 
YYYYYYYYY 9YY99YY 8Y98 
999999999 9 9999 

AAAAAAAAAAAAAAAAAAAA 

YYYYYYYYYYYYYYYYYYYY 

99999999999999999999 

AAAAAAAAAAAA80410002 

YYYYYYYYYYYY 

999999999999 

BTXT.AA 8 ..A 8 ..AAAAAA 

9 YQ9 Y9 Y9YYYY 

99 9 9 9999 

AAAAAAAAAAAAAAAAAAAA 
YYYYYYYYYYYYYYYYYYYY 

99999999999999999999 

AAAAAAAAAAAAAAAAADAA 
YYYYYYYYYYYYYYYY99YY 
9999999999999999 99 

GAPMAAAAAAAA80410003 

8Y98YYYYYYYY 

99 999999999 





BTXT.AAO..AA..AAAAAA 

9 YQC YQ Y9YYYY 

99- 99 9 9999 

AAAAADAAGANO•••••••. 

YYYY99YY8Y9C 

9999 9999 - 



BTXT.AAS..A 8 ..AAAAAA 

9 YQ 8 Y9 Y90YYY 

99 9 9 9 9 

BAAAAAK4AAAAAAAAAAAA 

0YYYYY99YYYYYYYYYYYY 

9 999 999999999999 

AAAAAAAAAAAAAAAAAAAA 

YYYYYYYYYYYYYYYYYYYY 

99999999999999999999 

AAAAAAAAAAAA80410005 

YYYYYYYYYYYY 

999999999999 

BTXT.AJQ..A 8 ..AAAAAA 

9 Y99 Y9 Y9YYYY 

9 9 9 9999 

AAAAAAAAAAAAAAAAAAAA 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 

AAAAAAAAAAAAAAAAAAAA 

YYYYYYYYYYYYYYYYYYYY 

99999999999999999999 

AAAAAAAAAA1/80410006 
YYYYYYYYYY 

9999999999 

BTXT.AJC..A8..AA0.AD 

9 Y9 Y9 Y9 

9 9 9 

DR.XXX.CAW.XXXXXXXX. 

GOT.CCO.BUT.NO.INTER 

RUPTAAAAI/0.80410007 
YYYY 

9999 

BTXT.AJH..A 8 ..AAADDR 

9 Y90 Y9 Y9 

9 9 9 

•XXX.CAW-XXXXXXXX.GO 

T.CC1.C SW.STATUS.XXX 

X.SNS.XX....80410008 

BTXT.AJ0..A8..AA.I/O 

9 Y9£ Y9 Y9 

9 9 9 

.ADDR.XXX.CAW.XXXXXX 

XX.G0T.CC1.CSW.XXXXX 

XXXXXXXXXXXA80410009 

Y 

9 

BTXT. AJ8..A8..AAAAAA 

9 Y9 Y9 Y9YYYY 

9 99 9999 

AAAAAADIAG.CK.RD.UNI 
YYYYYY 

999999 

T.000.NOT.OKT.WILL.T 

8 

RY.AGAINAAAA80410010 

YYYY 

9999 

BTXT.AKA..A 8 ..AAAAAA 

9 Y9Q Y9 Y9YYYY 

9 Z 9 9 9999 

AAAAAAAAAAAAAAAAAAAA 
YYYYYYYYYYYYYYYYYYYY 
99999999999999999999 

AAAAAAAAAAAAAAAAAAAA 

YYYYYYYYYYYYYYYYYYYY 

99999999999999999999 

AAAAAAAAAAAA80410011 

YYYYYYYYYYYY 

999999999999 

BTXT.AKQ..A 8 ..AAAAAA 

9 Y9Z Y9 Y9YYYY 

999 9999 

AAAAAAAAAAAAAAAAAAAA 

YYYYYYYYYYYYYYYYYYYY 

99999999999999999999 

AAAAAAAAAAAAAAAAAAAA 

YYYYYYYYYYYYYYYYYYYY 

99999999999999999999 

AAAAAAAAAAAA80410012 

YYYYYYYYYYYY 

999999999999 

BTXT.AKJ..A 8 ..AAAAAA 

9 Y9Y Y9 Y9YYYY 

999 9999 

AAAAAAAAAAAAAAAAAAAA 

YYYYYYYYYYYYYYYYYYYY 

99999999999999999999 

AAAAAAAAAAAAAAAAAAAA 

YYYYYYYYYYYYYYYYYYYY 

99999999999999999999 

AAAAAAAAAAAA80410013 

YYYYYYYYYYYY 

999999999999 

BTXT.AKQ..A 8 ..AAAAAA 

9 Y9 Y9 Y9YYYY 

999 9999 

AAAAAAAAAAAAKB1A2VAB 

YYYYYYYYYYYY 9 Y 8-9 
999999999999 9 

1EGA2DKB1A21KB0578AJ 
8 ZQ Q 9 Y 9 9 8 9Q8 

9 Z 9 

1DKC1Y0HPG1U80410014 
9 9 9 Z 9 8 

9 

BTXT.ALA..A 8 ..AA1UPA 

9 Y9Q Y9 Y9 8 Y 

9 9 9 9 9 9 

1717D07AKA0H1DKC0H0H 

RC Q Y Z 8 9-Z Z 

0 9 

DA0AEA3ACA14AA1EGA5F 
QY&YZQ Q Q 9-Y 8 ZQ Q 

9 9 9 Z 9 9 9 

AA14GS38BQAA80410015' 
-Q 9Z -8 -Y 

Z 9 

BTXT.ALH..A 8 ..AAODGA 

9 Y9Z Y9 Y9 9ZQ 

9 9 9 9 

3 FBEADAHAPKB1G1AB01W 
Q8QY9YZ98 9 R Y- 8 
0999 9 

BO.21FG03FAA14G.3FAA 

8 - 9 8 Z Q-Q 9Z —Y 

9 0 Z 

0DGA3DBEADAH80410016 
9ZQ 88QY9YZ 

9 9999 9 . 
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P/N 

PAGE 


F804 

2821 

SCAN/2540 

READER/PUNCH 



F804 

2821 

SCAN/2540 

READER/PUNCH 



F804 CHANNEL REG FLT 

-ROUTINE OVERLAY 1- 



F804 CHANNEL REG FLT 

-ROUTINE OVERLAY 1- 



BTXT.ALA. 

.AS. 

•AAAPKB 

1G1AB31WB0./1FG03DAA 

14GA30AA0DGA3FBEADAH 

APK81G1AB21W80410017 

BTXT.APO. 

• A8 • 

•AAAAFA 

K4JAACDAJ 7AAAAGGGGAA 

AMANOMAKE.THIS.UNIT. 

RDY.WITH.BLA80410034 

9 Y9Y 

Y9 

Y998 9 

R Y- 88- 9 8Z 8-Q 

9ZQ Y-Y 9ZQ Q8QY9YZ 

98 9 R Y- 8 

9 Y98 

Y9 

Y9YY Y 

99YYY99Y9 YYY9QQQQYY 

Y9Y9£ 


9 

9 

9 

9 9 9 

99 9 0999 9 


9 9 

9 

9 99 9 

999 9 999 111199 

9 9 - 


BTXT.ALH. 

• A8 • 

.AABO./ 

1FEA0AGA3DGC3FQUAB1E 

GA3DH00SG03SH00WEA0A 

G03SQBG03DAA80410018 

BTXT.APF. 

. A8. 

.AANK.C 

ARDSST ATUS.XXXX.SNS. 

XXPRESS.CONSOLE.STOP 

.F.ENTER.SC080410035 

9 Y90 

Y9 

Y98- 9 

8QYCYZY 8Z Q98-9 8 

ZQ QZ£ Z 8Z£ QY£Y 

Z£ 89 Z 8-Y 

9 Y9R 

Y9 

Y9 



8 

9 - 

9 

9 9 

9 9 9 0 9 

9 9 9 9 

9 

9 

9 

9 




BTXT.ALO. 

. A8 • 

•AAODGA 

3FAA1CGA4KBAICAGOEGC 

4KAL00GC4KAM0DGA3DKB 

1E1ABEADAHAE80410019 

BTXT.APF. 

.AW. 

. AAPE.L 

OOP.DAT AADAROUTINE.B 

YPASSEDAGAAAGG. 

.80410036 
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F804 2821 SCAN/2540 READER/PUNCH 

F804 CHANNEL REG FLT -ROUTINE OVERLAY 1- 
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PS04 2821 SCAN/2540 READER/PUNCH 
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9 

9 Z 

BTXT.ALO. 

. A8. 

•AAGACK 

9 Y8£ 

Y9 

Y9ZYQY 

99 

9 

9 Z9 

BTXT.AL8. 

• A8. 

•AAGODB 

9 Y8 

Y9 

Y9Z QQ 

99 

9 

9 Z9 

BTXT.AMA. 

• A8 • 

•AAD4B0 

9 Y8Q 

Y9 

Y9Q88- 

991 

9 

9 Z99 

BTXT.AMQ. 

• A8 • 

•AADDBO 

9 Y8Z 

Y9 

Y9QR8- 

99 

9 

9 Z09 

BTXT.AMJ. 

• A8. 

•AA80GA 

9 Y8Y 

Y9 

Y9 9ZQ 

99 

9 

9 9 

BTXT.AMQ. 

• A8. 

•AACQBG 

9 Y8 

Y9 

Y9Q0-Q 

99 

9 

9 Z Z 

BTXT.ANA. 

• A8. 

•AAAAA3 

9 Y8Q 

Y9 

Y9QYZ9 

99* 

9 

9 Z9 

BTXT.ANH. 

• A8. 

•AAEA66 

9 Y8Z 

Y9 

Y9ZY^ 8 

99 

9 

9 9 

BTXT.ANA. 

• A8 • 

.AAAAAM 

9 Y8Y 

Y9 

Y9YYY9 

99 

9 

9 999 

BTXT.ANH. 

. A8 • 

•AAERR. 

9 Y80 

Y9 

Y9 

99- 

9 

9 

BTXT.ANO. 

. A8 . 

.AAERR. 

9 Y8 

Y9 

Y9 

99 

9 

9 

BTXT.AOY. 

.Al. 

.AAERR. 

9 Y89 

Y9 

Y9 

99 

9 

9 

BRLD. 

• AM. 

...AAAA 

9 

Y8 

99 

Y9Y9 
9 9 


GACFAA8KGACFAA8EGACF 
ZQQ9-9 9ZQQ9-9 8ZQQ9 
9Z 9Z 9 9Z 

KL8EAAAB8AGAC8NA8E8B 
9 9QY-9 8ZQQQ Y 9 8 
99 9 9Z0 9 9 

DFB0DGEFG0DBAD8EGACB 
Q08-Z9Q Z QQ-9 8ZQQR 
Z-9 Z Z9 9 9Z0 

AD8AGACAB0DGECG00BB0 
-9 8ZQQQ8-Z9QQZ QQ8- 
9 9Z09 Z9 Z99 

AB8EGADSNA8E8LGACSB0 
-9 8ZQQ8 Y 9 9ZYQ88- 
9 9Z9 9 Z 9 

B0DGE7G0DBAB8KGADJAD 
8-Z9Q Z QQ-9 9ZQQY-9 
9 Z Z9 9Z9 

DGFDG0DBAD8KGADDB0DG 
Z9Q8Z QQ-9 9ZYQ-8-Z9 
Z9 Z9 Z 9 

DGF/G0CQAD8DGADBNKGA 
Z9Q9Z QO-9 9ZQQY99ZY 
Z Z 9Z 

DAB0DGFXG0DBB0DGF6BD 
QQ8-Z9Q8Z QQ8-Z9Q9-0 
Z09 19 Z99 Z 

7DAJ0DGADKG0E.AA8EKL 
Q-Y 9ZQQYZ Q ZQ 9 9 
9 9Z9 Z 9 

ABNFG-EUADABGOEDB..B 
Y99ZZ Q9ZZY9Z Q8- 9 

9 Z 9 Z9 

G06M0AEAG0D0AAQEJAAA 
Z Y8QQYZ QY9Y99YYY9 
9 9Z Z9 9 999 

2821.SCAN/2540T.C0NT 

3 


004ERR.005ERR.006ERR 


012ERR.013ERR.014ERR 


020ERR.021ERR.022ERR 


AAANAANJAAN/AAN/AANA 
8YQ98Y888Y8 8Y888Y8R 
999 999 999 999 9990 


NKGACMOAEAGOBKSODGEL 
99ZYQ98QQYZ Q 8-Z9Q0 
Z 9Z Z 9 Z 

GAC4A88EGAC-AD8EGACF 
ZY08-9 8ZYQ -9 8ZQQR 
Z 9 Z 9 9 Z 

B0DGEEG0DF80DGEMG0DB 
8-Z9QYZ Q08-Z9Q Z QQ 
9 Z9 Z-9 Z Z9 

DGE SG0DB8E7DG0DFB0DG 
Z9Q Z QQ—0 QZ QQ8-Z9 
Z Z9 Z99 

DGE ZGODFBODGFCGOCQAB 
Z9Q Z Q08-Z9Q8Z QO-9 
Z Z-9 Z Z 

8KGADFB0DGEFG0DBB0DG 
9ZYQ88-Z9QQZ QQ8-Z9 
Z 9 ZZ Z99 

FLG0DBNA8E8LGADKB0DG 
Q9Z QQ Y 9 9ZYQZ8-Z9 
Z Z9 9 Z 9 

DFOAEAGOCMBODGFYGODB 
QQ8QQYZ Q88-Z9Q9Z QQ 
Z9 9Z Z99 Z Z9 

7DG0DFAB80GAD0B0DGF5 
QZ QQ-9 9ZQQ—8-Z9Q8 
Z9 9Z 9 Z9 

8EAABEAKHEGSA—7LAA8B 
9QY8QY99998Z YZY 9 
99999 9 9 

ADACNAG-EDB0A470NKG- 
ZZY99QZ Q88-Y9 -99Z 
9 Z 299 

VAQFJAABBAQBJAAABAQL 
9Y98YYY9 Y98YYY9 Y99 
9 9999 9 9999 9 

R0L.PR0GRAMERR.001ER 


.007ERR.008ERR.009ER 


•015ERR.016ERR.017ER 


.023ERR.024ERR.025ER 


HAN1 

9Y88 

99 


BC7DG0 DFAA8J80410086 
-0 QZ QQZQ 8 
Z9 9 9 

AH8DGACFBO DG80410087 
-9 8ZQQR8-Z9 
9 9Z 9 

AB8EGACFAD8E80410088 
-9 8ZQQQ-9 8 
9 9 Z 9 

FBG0DBNA8 E8B80410089 
QRZ QQ Y 9 8 
Z Z9 9 9 

8EGACDBODG6080410090 
8ZQQQ8-Z9Q 
9 9119 , Z 

FEGO DBAB8KGA80410091 
Q9Z QQ-9 9ZY 
Z Z9 

FKG0DFAB80GA80410092 
Q8Z QO-9 9ZY 
Z9 Z- 

NA8E8LGADFAB80410093 
Y 9 9ZYQQ-9 
9 ZO 

GODBBODGFDG080410094 
Z QQ8-Z9QZZ 
Z99 Z 

AA7SA.70KA.A80410095 
ZQ 8Z - 9 Y 
Z 9 

E6BBA.0DGAED80410096 
Q 8Q- 9ZYQ8 
Z 99 Z 

JAAAFAQDJAAA80410097 
YYY9 Y99YYY9 
999 9 999 

R.002ERR.00380410098 


R.010ERR.01180410099 


R.018ERR.01980410100 


R. 026.80410101 


80410102 




BEND, 

9 

BOAT 

9 


BDAT 

9 




ji 

j; 
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PAGE IA 

* F8041 2821 SCAN/2540 READER/PUNCH 

F805I BUFFER ADDR FLT -ROUTINE OVERLAY 03- 


••*••*«««**«•*•«•**»*•«»»«••*•«*«•«*****••»«**•*«*«»«»»«»**•*»««••*»•*• 


0017E0 

00000000 

RESCNT DC 

XL4* 00* 

WORK FIELD 







* VARIABLES FOR ROUTINE 03 - 

NO BOUNDARY * 




0017E4 

OOOO’OOOOOOGfOQOGOOO 

DRDR DC 

XLIOO’O* 

READER DIAGNOSTIC CK READ DATA 

0017ED 

000000000000000000 




0017F6 

000000000000000000 




0017FF 

oooooooooooooooooo 




001808 

oooooooooooooooooo 



1 

001811 

oooooooooooooooooo 




00181A 

oooooooooooooooooo 




001823 

oooooooooooooooooo 




00182C 

oooooooooooooooooo 




001835 

oooooooooooooooooo 



"1 

00183E 

oooooooooooooooooo 




001847 

00 




001848 

0000000000000000 

RCSWAG DC 

XL 8 «G* 

READER CSW 

001850 

oooooooooooooooooo 

DRPU DC 

XL100*0* 

PUNCH DIAGNOSTIC CK READ DATA 

001859 

oooooooooooooooooo 




001862 

oooooooooooooooooo 



* .. | 

00186B 

oooooooooooooooooo 




001874 

000000000000000000 




00187D 

oooooooooooooooooo 




001886 

oooooooooooooooooo 




00188F 

000000000000000000 



■ i 

001898 

oooooooooooooooooo 




0018A1 

oooooooooooooooooo 




0018AA 

oooooooooooooooooo 




0018B3 

00 



■ . ;• 

0018B4 

0000000000000000 

PCSWAG DC 

XL 8 *0 * 

PUNCH CSW 

0018BC 

00 

SWITCH DC 

X*00* 


0018 BD 

C5D9D940F0P5F140 

ERRX DC 

C * ERR 051 * 

I 

0018C5 

C4C5E5C9C3C540F0F0 

LGMSG DC 

C'DEVICE 000 DIAG * 

! 

0018CE 

F040C4C9C1C740 



s 

0018D5 

C3D240D9C440C4CIE3 

DC 

C'CK RD DATA* 

? 

\ 

00180E 

Ci 



■ , 1 

00180F 

406040D9C5E2C9C464 

LGMSG 1 DC 

C* - RESIDUAL COUN* 

1 

0018E8 

C1D340C306E4D5 



1 

0018EF 

6340C9E240F0F0F0FQ 

DC 

C*T IS 0000 SHLD B f 

| 

0018F8 

40E2C803C440C2 




0018FF 

C540FOFOF2FO 

DC 

C * £ 0020 * 



**»*******«**##***#******♦#*****###****#****************«•** ************* 
* ROUTINE 03 PREFIX * 


*********************************************************************** 


001906 





CNOP 

0,4 

FULL WORD ALIGNMENT 

001906 

07 00 




BCR 

0,0 


001908 

03 




RTN03 DC 

XL 1*03* 

ROUTINE NUMBER 

001909 

00 




DC 

XL 1 * 0 * 4 , 

FLAGS 

00190A 

FFFE 




DC 

X * FFFE * 

ADDRESS OF NEXT ROUTINE 






*»##***************#*#**#*««»««»»*#*«»##***#»*»«»**#*»*»##**»*«*«*•*»*«* 

00190C 

95 83 

F 

79C 


INITOO CLI 

SCHNUM,X * 83• 

SEE IF SEARCHING FOR ROUTINE 03 

001910 

47 80 

F 

918 


Bt 

EQUAL,INITOi 

BR IF YES 

001914 

47 F0 

F 

6 EC 


6 C 

ALWAYS,EXIT 

BYPASS THIS ROUTINE w . 

001918 

91 02 

F 

004 


INIT01 TM 

SNSW»X * 02 * 

WANT TITLE PRINTOUT - SEC SS 06 ON 

00191C 

47 80 

F 

926 


BC 

ALLOFF,INITIO 

BR IF NO 

001920 

OA DO 




SVC 

X*DO* 

PRINT TITLE 

001922 

80 




DC 

X * 80* 

,, NORMAL OUTPUT 

001923 

IF , 




DC 

X * IF * 

,t 31 CHARACTERS 

001924 

F DCA 




DC 

SC TITLE) 

,, ADDRESS OF TITLE 

001926 

91 40 

F 

004 


• INITIO TM 

SNSW,X*40* 

WANT UTILITY ROUTINE - SEC SS 01 

00192A 

47 80 

F 

932 


BC 

ALLOFF,ADCKOO 

BR IF NO 

00192E 

45 80 

F 

63E 


BAL 

GR 8 ,SCPROO 

BR TO UTILITY ROUTINE 

0 




4 

* PERFORM TWO DIAGNOSTIC CHECK READS TO READER 

001932 

D2 01 

F 

234 F 

DE9 

ADCKOO MVC 

SCPDATC2WR03K00 

CLEAR READ AREA 

001938 

D2 61 

F 

236 F 

235 

MVC 

SCPDAT&21983,SCPDAT£1 

i ? 
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* F8041 2821 SCAN/2540 READER/PUNCH 

F8051 BUFFER ADDR FLT -ROUTINE OVERLAY 03- 


00193E 

41 

10 

F 

D80 



LA 

GR1 *CRDCCW 

LOAD CCW ADDRESS IN SEC PREF 

CAW 

001942 

50 

10 

F 

048 



ST 

GRltCAW 

y y 


001946 

48 

CO 

F 

0E2 



LH 

GRC , UN1ADR 

SET READER ADDRESS IN GR 12 


00194A 

92 

02 

F 

140 



MVI 

SIQSWS,X*02 * 

SET SIO PROGRAM SWITCHES 


00194E 

45 

BO 

F 

2E8 



8AL 

GRBySIO 

BR TO SIO ROUTINE 


001952 

91 

CO 

F 

234 



TM 

SCPDAT , X *C0* 

WAS ANY DATA TRANSFERRED • 


001956 

47 

80 

F 

96A 



BC 

ALLOFF *ADCK10 

BR IF YES 


00195A 

D2 

02 

F 

212 

F 

220 

ADCK01 MVC 

MESS1£16(3),UARD 

SET READER ADDRESS IN OUTPUT 

MESSAGE 

001960 

OA 

DO 





SVC 

X*D0 # 

ERROR - NO DATA WAS TRANSFERRED BY 

001962 

44 






DC 

X' 44 1 

,, DIAGNOSTIC CK RD TO READER 

001963 

2A 






DC 

X 1 2A * 

y y 42 CHARACTERS 


001964 

F 202 





DC 

S(MESSi) 

yy ADDRESS OF MESSAGE 


001966 

47 

FO 

F 

932 



BC 

ALWAYSyADCKOO 

GO TRY AGA IN 


00196A 

02 

01 

F 

234 

F 

DE9 

ADCK10 MVC 

SCPDATC 2),R03KQ0 

CLEAR READ AREA 


001970 

02 

61 

F 

236 

F 

235 

MVC 

$CPDAT£2(98)»$CPDAT£i 

» y 


001976 

45 

BO 

F 

2E8 



BAL 

GRBySIO 

BR TO SIO ROUTINE 

6 

00197A 

91 

CO 

F 

234 



TM 

SCPDAT y X ®C0• 

WAS ANY DATA TRANSFERRED 


00197E 

47 

10 

F 

95A 



BC 

ALLONyADCK01 

BR IF NO 


001982 

02 

63 

F 

7E4 

F 

234 

MVC 

DRDR(IOO) y SCPDAT 

SAVE READER DIAG CHECK READ 

DATA 

001988 

02 

07 

F 

848 

F 

1FA 

MVC 

RC$WAG( 8)yCSWAG 

SAVE READER CSW 



» 


* PERFORM TWO DIAGNOSTIC CHECK READS TO PUNCH 

ft 


00198E 

D2 

01 

F 

234 

F 

0E9 

ADCK20 MVC 

SCPDATC 2),R03K00 

CLEAR READ AREA 

001994 

D2 

61 

F 

236 

F 

235 

MVC 

SCPDATS2C98)ySCPDATCl 

» » 

00199A 

48 

CO 

F 

0E6 



LH 

GRC y UN2ADR 

SET PUNCH ADDRESS IN GR 12 

001996 

92 

00 

F 

14D 



MVI 

Sf0SWS,X # 00* 

SET SIO PROGRAM SWITCHES 

0019A2 

45 

BO 

F 

2E8 



BAL 

GRBySIO 

BR TO SIO ROUTINE 

0019A6 

91 

CO 

F 

234 



TM • 

SCPDAT,X«C0* 

WAS ANY DATA TRANSFERRED 

0019AA 

47 

80 

F 

9BE 



BC 

ALLOFF,ADCK30 

BR IF YES 

0019AE 

02 

02 

F 

212 

F 

231 

ADCK21 MVC 

MESS1C16C3)»UAPU 

SET PUNCH ADDRESS IN OUTPUT MESSAGE 

0019B4 

OA 

DO 





SVC 

X • DO * 

ERROR - NO DATA WAS TRANSFERRED BY 

0019B6 

44 






DC 

X • 44' 

,» DIAGNOSTIC CK RD TO PUNCH 

0019B7 

2 A 






DC 

X 1 2A * 

,? 42 CHARACTERS 

0019B8 

F 202 





DC 

SCMESS1) 

,t ADDRESS OF MESSAGE 

0019BA 

47 

FO 

F 

98E 



BC 

ALWAYS,ADCK20 

GO TRY AGAIN 

0019BE 

D2 

01 

F 

234 

F 

DE9 

ADCK30 MVC 

SCPDAT C 2),RO3K0O 

CLEAR READ AREA 

0019C4 

D2 

61 

F 

236 

F 

235 

MVC 

SCPDATC2C98IySCPDAT&l 

y , 

0019CA 

45 

BO 

F 

2E8 



BAL 

GRBySIO 

BR TO S10°ROUTINE 

0019CE 

91 

CO 

F 

234 



TM 

SCPDAT,X ®CQ * 

WAS ANY DATA TRANSFERRED 

0019D2 

47 

10 

F 

9AE 



BC 

ALLONyADCK21 

BR IF NO 

001906 

D2 

63 

F 

850 

F 

234 

MVC 

DRPUC1001,SCPDAT 

SAVE PUNCH DIAG CHECK READ DATA 

0019DC 

02 

07 

F 

884 

F 

1FA 

MVC 

PCSWAGC81yCSWAG 

SAVE PUNCH CSW 








* SEPARATE RARy PARy AND BAR 

FAILURES HERE 

0019E2 

41 

10 

F 

7E4 



ADCK40 LA 

GRlyDRDR 

INITIALIZE FILTER RTN FOR READER 

0019E6 

41 

20 

F 

848 



LA 

GR2,DRDR&100 

y y 

00I9EA 

45 

30 

F 

9FA 



BAL 

GR3,ADCK41 

BR TO FILTER ROUTINE 

0019EE 

41 

10 

F 

850 



LA 

GRlyDRPU 

INITIALIZE FILTER RTN FOR PUNCH 

0019F2 

41 

20 

F 

8B4 



LA 

GR2,DRPUC100 

y y 

0019 F 6 

41 

30 

F 

A16 



LA 

GR3,ADCK50 

» » 

0019FA 

15 

12 





A0CK41 CLR 

GR1,GR2 

BR IF END OF FILTER 1 

0019FC 

07 

83 





BCR 

EQUAL,GR3 

» , 

0019FE 

02 

00 

F 

234 

1 

000 

MVC 

SCPDATillyOCGRII 

SET UP DATA FOR FILTERING \ 

001A04 

94 

01 

F 

234 



NI 

SCPDAT,X # 01« 

FILTER OUT ALL BUT ADDR ERRS 

001 AOS 

02 

00 

1 

000 

F 

234 

MVC 

0(lyGRl)y SCPDAT 

RETURN DATA ! 

001AOE 

41 

10 

1 

001 



LA 

GR1,1CGROyGRlI 

ADD 1 TO GR1 : 

001Al2 

47 

FO 

F 

9FA 



BC 

ALWAYS,ADCK41 

CONTINUE 

001A16 

95 

14 

F 

84F 



ADCK50 CL I 

RCSWAG&TyX*14* 

RESIDUAL CCW COUNT FOR RDR EQ 20 

001A1A 

47 

60 

F 

AEE 



BC 

NEQUAL,ADCK60 

BR IF NOT EQ 

001A1£ 

95 

14 

F 

888 



CL I 

PC SWAGC7,X•14 * 

RESIDUAL COUNT FOR PUNCH EQ 20 

001A22 

47 

60 

F 

AFA 



BC 

NEQUAL,ADCK70 

BR IF NOT EQ - PAR PROBLEM 

001A26 

92 

00 

F 

234 



MVI 

SCPDAT,X * 00* 

CLEAR COMPARE FIELD 

001A2A 

D2 

62 

F 

235 

F 

234 

MVC 

SCP0ATG1I99),SCPDAT 

» ? 

001ABO 

D5 

63 

F 

7E4 

F 

234 

CLC 

DRDRC100),SCPDAT 

SEE IF ANY ADDR ERRS FOR READER 

001A36 

47 

80 

F 

A4C 



BC 

EQUAL yADCKSl 

BR IF NO 

001A3A 

05 

63 

F 

850 

F 

234 

CLC 

DRPUC100),SCPDAT 

SEE IF ANY ADDR ERRS FOR PUNCH 
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001A40 

47 80 

F 

B02 



BC 

EQUAL tADCK80 

BR IF NO - READER BAR PROBLEM 

t 

001A44 

92 20 

F 

SBC 



MVI 

SWITCH,X*20* 

SET UP TO LOOK FOR FALSE ADDR CHECKS 

1 

001A48 

47 FO 

F 

BOE 



BC 

ALWAYS,ADCK9084 

BAR PROBLEM 


001A4C 

D5 63 

F 

850 

F 

234 

ADCK51 CLC 

DRPU(100),SCPDAT 

SEE IF ANY ADDR ERRS FOR PUNCH 


001A52 

47 60 

F 

AFA 



BC 

NEQUAL,ADCK70 

BR IF YES - PUNCH BAR PROBLEM 

... | 

001A 5.6 

OA DO 





SVC 

X*DO* 

PRINT NO ADDRESSING ERRORS DETECTED 


001A58 

84 





DC 

X * 84* 

,, NORMAL OUTPUT 


001A59 

10 





DC 

X*10' 

,, 16 CHARACTERS 


001 ASA 

F EB3 





DC 

S(NOERR) 

,, ADDRESS OF MESSAGE 


001A5C 

91 40 

F 

004 



ADCK52 TM 

SNSW,X*40» 

SEE IF WANT UTILITY ROUTINE 


001A60 

47 80 

F 

A68 



BC 

ALLOFF,*88 

BR IF NO 


001A64 

45 80 

F 

63E 



BAL 

6R8,SCPROQ 

BR IF YES 


001A68 

91 20 

F 

004 



TM 

SNSW,X * 20* 

SEE IF WANT LOG-OUT 


001A6C 

47 80 

F 

AAE 



BC 

ALLOFF,PERT 

BR IF NO 


001A70 

OA DD 





SVC 

X *DD 9 

CONVERT READER CK RD DATA TO EBCDIC 


001A72 

005 A 





DC 

AL2(90) 

NO OF 01 AG CK READ BYTES 


001A74 

07E4 





DC 

AL2(DRDR-SECST) 

DIAG READ DATA ADDR 


001A76 

0234 





DC 

AL2< SCPDAT-SECST) 

EBCDIC DATA ADDR IN OUTPUT MESSAGE 


001A78 

D2 02 

F 

8CC 

F 

22D 

MVC 

LGMSG£7t3),UARD 

SET READER AODR IN OUTPUT MESSAGE 


001A7E 

D2 03 

F 

7E2 

F 

84E 

MVC 

RESCNTG2,RCSWAG£6 

SAVE READER RESIDUAL COUNT 


001A84. 

45 30 

F 

ABE 



BAL 

GR3,ADCK53 

GO PRINT READER DIAG CK READ DATA 


001A88 

OA ,DD 





SVC 

X 'DD * 

CONVERT PUNCH CK RD DATA TO EBCDIC 


001A8A 

005 A 





DC 

AL2(90) 

NO OF DIAG CK READ BYTES 


001A8C 

0850 





DC 

AL2(DRPU-SECST) 

DIAG READ DATA ADDR 


001A8E 

0234 


A 



DC 

AL2(SCPDAT-SECST) 

EBCDIC DATA ADDR IN OUTPUT MESSAGE 


001A90 

D2 02 

F 

8CC 

F 

231 

MVC 

LGMSG87(3),UAPU 

SET PUNCH ADDRESS IN OUTPUT MESSAGE 


001A96 

02 03 

F 

7E2 

F 

8BA 

MVC 

RESCNT82,PC SWAG£6 

SAVE PUNCH RESIDUAL COUNT 


001A9C 

45 30 

F 

ABE 



BAL 

GR3,ADCK53 

GO PRINT PUNCH DIAG CK READ DATA 

: 

001AA0 

OA DA 





SVC 

X * DA 9 

HALT £ WAIT FOR ACTION 


001AA2 

91 40 

F 

004 



TM 

SNSW,X *40* 

SEE IF WANT UTILITY ROUTINE 


001AA6 

47 80 

F 

AAE 



BC 

ALLOFF,*£8 

BR IF NO 

i 

001 AAA 

45 80 

F 

63E 



BAL 

GR8,SCPR00 

BR IF YES 


001AAE 

91 20 

E 

1 A3 



PERT TM 

419IGRE),X*20* 

IS LOOP ON SEC SS ON 


001AB2 

47 10 

F 

6EC 



BC 

ALLONyEXIT 

BR IF YES 


001AB6 

96 40 

F 

79C 



01 

SCHNUM,X *40* 

SET UP TO BYPASS ALL REMAINING OVLYS 


001 ABA 

47 FO 

F 

6EC 



BC 

ALWAYS,EXIT 

ROUTINE EXIT 


001 ABE 

58 00 

F 

7E0 



ADCK53 L 

GROyRESCNT 

LOAD RESIDUAL COUNT IN GR 0 


001AC2 

4E 00 

F 

7D8 



CVD 

GROyERNUM 

CONVERT RESIDUAL COUNT TO DECIMAL 


001AC6 

OA OD 





SVC 

X *DD • 

CONVERT RESIDUAL COUNT TO PRINTABLE 


001AC8 

0003 





DC 

AL2I3S 

,, 3 HEX BYTES 


001 ACA 

07 DO 





DC 

AL2(ERNUM£5-SECST) 

yy HEX DATA ADDRESS 

i 

t 

001ACC 

07D7 





* DC 

AL2C ERNUM-l-SECST) 

,, PRINTABLE DATA ADDRESS 

) 

001 ACE 

D2 03 

F 

8F4 

F 

708 

MVC 

LGMSG182XI4)yERNUM 

LOAD RESIDUAL COUNT IN MESSAGE 


001AD4 

OA DO 





SVC 

X 9 D0 * 

PRINT RDR/PCH DIAG CK RD DATA 


001AD6 

80 





DC 

X 1 80 • 

,, NORMAL OUTPUT 


001AD7 

40 





DC 

X * 40* 

,, 64 CHARACTERS 


001AD8 

F 8C5 





DC 

S{LGMSGI 

,, ADDRESS OF MESSAGE 

1 

001 ADA 

OA DO 





SVC 

X 9 DO * 

yy FIRST 30 BYTES OF DIAG CK RD DAT 


001 ADC 

80 





DC 

X * 80 • 

yy NORMAL OUTPUT 


001 ADD 

3C 





DC 

X 9 3C 9 

yy 60 CHARACTERS 


001ADE 

F 234 





DC 

S{SCPDAT) 

,, ADDRESS OF MESSAGE 

’ 

001AE0 

OA DO 





SVC 

X * DO * 

,, SECOND 30 BYTES 


001AE2 

80 





DC 

X * 80* 

,, NORMAL OUTPUT 


001AE3 *. 

3C 





DC 

X 9 3C 9 

,, 60 CHARACTERS 


001AE4 

F 270 


6 



DC 

S(SCPDAT860) 

yy ADDRESS OF MESSAGE 


001AE6 

OA DO 





SVC 

X*D0* 

yy LAST 30 BYTES 

. f 

001 AES 

80 





DC 

X 9 80 9 

yy NORMAL OUTPUT 

? 

■1 

001AE9 

3C 





DC 

X * 3C 9 

yy 60 CHARACTERS 

J. 

001AEA 

F 2 AC 





DC 

SISCPDAT8120) 

,y ADDRESS OF MESSAGE 

l 

001AEC 

07 F3 





BCR 

ALWAYS,GR3 

RETURN 

1:; j 

001AEE 

95 14 

F 

8BB 



ADCK60 CL I 

PCSWAG87 , X*14* 

RESIDUAL CCW COUNT FOR PUNCH EQ 20 

% i 

001AF2 

47 60 

F 

BOA 



BC 

NEQUAL,ADCK90 

BR IF NO - BAR PROBLEM 

Yj 

001AF6 

47 FO 

F 

BO 2 



BC 

ALWAYS,ADCK80 

RAR PROBLEM 

■ I 





* 


* COME 

1 *#**#*#*## 

HERE IF PAR PROBLEM * 

» 


001AFA 

92 40 

F 

SBC 



• ADCK70 MVI 

“wWWWwWWWWWWWWWWWWWWWW 

SWITCH,X*40» 

TURN ON PROGRAM PAR SWITCH 

M 

001AFE 

47 FO 

F 

CCA 



BC 

ALWAYS,AOCKBO 

GO FIND PAR PROBLEM 

■ ^ 


DATE 

15 JSJL65 

17MAR66 

ID 

F805-1 

EC 

124265 

125643 

PAGE 

2A 
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l 8M MAINTENANCE DIAGNOSTIC PROGRAM p/N 840260 

PAGE ' 3■ 

* FB041 2821 SGAN/254C? READER/PUNCH 

F8051 BUFFER ADDR FIT -ROUTINE OVERLAY 03“ 


* COME HERE IF RAR PROBLEM * 

* *#****•&•***•» «***•*******##•»•*•**#***■*•* **■*■»* &**********«•»**«•**■*•*•*«*****»#** 


001B02 92 80 F SBC ADCK80 MVI SWITCH,X 4 S0* TURN ON PROGRAM RAR SWITCH 

001B06 4T FO F CCA ■ 0C ALWAYS,ADCKBG GO FIND RAR PROBLEM 

««•«»***# IHt****** ****«•*##•»* »•»*•»*«#*** ***»***■»******«•#*«•■»•*«••«■«• *■»**##.#*#•»*•» 

* COME HERE IF BAR PROBLEM * 

*»***«******«*«-**««-*«***»*«*•* £ «**■***•»**■***«»* »*•«*«*-»* #«,»* 


001 BOA 

92 

00 

F 

SBC 



ADCK9Q MVI 

SWITCH,/ 8 00® 

TURN ON PROGRAM BAR SWITCH 

001B0E 

45 

BO 

F 

BBE 



BAL 

GRB,ALOCOO 

GO SEE IF CAN FIND BAR'PROBLEM 

001BI2 

92 

00 

F 

234 



MVI 

SCPDAT,X ? GO® 

SET COMPARE FIELD TO ZEROS 

001B16 

02 

62 

F 

235 

F 

234 

MVC 

SCPDATCK 99) , SCPDAT 

» , 

! 001B1C 

92 

01 

F 

28D 



MVI 

SCPDAT&89,X*OX * 

SET UP FOR ERROR 129 

001B20 

D5 

59 

F 

234 

F 

7E4 

CLC 

SCPDAT(90S * DROR 

SEE IF THIS PATTERN COMPARES . 

001B26 

47 

60 

F 

B36 



BQ 

NEQUAL,AD€K91 

BR IF NO 

1 Q01B2& 

41 

90 

0 

08i 



LA 

GR9,129 

SET UP ERROR NUMBER 

001B2E 

45 

AO 

F 

CBC 



BAL 

GRA,AL0C60 

GO SET UP PRINTOUT j 

001B32 

47 

FO 

F 

C9E 



BC 

ALWAYS,ADCKAO 

GO PRINT BAR PROS 129 

001B36 

41 

90 

0 

063 



A0CK91 LA 

GR9,99 

SET UP ERROR 099 i 

1 001B3A 

D5 

01 

F 

DCS 

F 

84 E 

CLC 

C0M50C2),RCSWAG£6 

SEE IF READER RESIDUAL COUNT IS 0050 

; 001840 

47 

60 

F 

B56 



BC 

NEOUAL,ADCK92 

BR IF NO 1 

001844 

D5 

01 

F 

DCS 

F 

8BA 

CLC 

C0M50(2),PCSWAGS6 

SEE IF PUNCH RESIDUAL COUNT SS 0050 

I 00104A 

47 

60 

F 

B56 



BC 

NEQUAL, ADCK92 

BR IF NO 

; 00.1B4E 

45 

AO 

F 

CBC 



BAL 

GRA,AL0C60 

GO SET UP PRINTOUT 

i 001052 

47 

FO 

F 

C9E 



BC 

ALWAYS,ADCKAO 

GO PRINT BAR PROBLEM 009 

I 001856 

91 

20 

F 

BBC 



ADCK92 TM 

SWITCH,X*20 8 

SEE OF POSSIBLE FALSE ADDRESS CHECKS 

j 001B5A 

47 

80 

F 

8B2 



BC 

ALLOFFiADCK93 

BR IF NO 

1 001B5E 

41 

10 

F 

DBS 



LA . 

GR1,PUWCCW 

LOAD CCW ADDRESS IN SEC PREF CAW 

j 001862 

50 

10 

F 

048 



ST 

GRltCAW 

LOAD CCW ADDRESS IN SEC PREF CAW 

001B66 

48 

CO 

F 

0E6 



IH - 

GRC,UN2ADR 

SET PUNCH ADDR IN GR 12 

j 001B6A 

92 

00 

F 

140 



MVI 

SIOSWS,X 8 Q0® , 

SET SIO PROG SWITCHES FOR PUNCH 

1 00186E 

45 

BO 

F 

2E8 



BAL 

GRB,SIO 

BR TO SIO ROUTINE 

j 001872 ' 

91 

01 

F 

14D 



TM 

SIOSWS,X 8 Ql® 

SEE IF GOT INTERV REG 

1 001B76 

47 

10 

F 

90C 



BC 

ALLONtINITOO 

RESTART SECTION IF YES 

•j 001B7A 

92 

00 

F 

234 



MVI 

SCPDAT,X 8 00* 

CLEAR READ FIELD * 

: 001B7E 

D2 

4E 

F 

235 

F 

234 

MVC 

SCPDATCiC 79)«SCPDAT 

CLEAR READ FIELD 

! 001B84 

41 

10 

F 

DCQ 



■LA 

GR1,PURCCW 

LOAD CCW ADDRESS IN SEC PREF. CAW 

j 001B88 

50 

10 

F 

048 



ST 

GR1,CAW 

LOAD CCW ADDRESS IN SEC PREF CAW 

j 001 BBC 

92 

02 

F 

!4Q 



MVI 

SIOSWS,X 9 02 8 

SET SIO PROGRAM SWITCHES 

! 001090 

45 

BO 

F 

2E0 



- BAL. 

GRBSIO 

BR TO SIO ROUTINE 

j 001894 

91 

01 

F 

14D 



TM 

SIOSWS,X®01 8 

SEE IF GOT INTERV REQ 

; 001B98 

47 

10 

F 

90C 



, BC 

ALLON,INI TOO 

RESTART SECTION IF YES 

j 001B9C 

D5 

4F 

F 

234 

F 

2E8 ■ 

CLC 

SCPDAT(801,SIO 

SEE IF DATA READ OK 

l 001BA2 

47 

60 

F 

8B2 



BC 

NEQUAL,ADCK93 

BR IF NO 0 

j 001BA6 

41 

90 

0 

086 



LA 

GR9,134 

SET UP ERROR NUMBER 134 

1 0018AA 

45 

AO 

F 

CBC 



BAL 

GRA,AL0C60 

GO SET UP PRINTOUT 

j 001BAE 

47 

FO 

F 

C9E 



BC 

ALWAYS,ADCKAO 

GO PRINT BAR PROS 134 

f 001BB2 

41 

90 

0 

032 



ADCK93 LA 

GR9,50 

SET UP ERR 050 

! 001BB6 

45 

AO 

F 

CBC 



BAL 

GRA,AL0C60 

GO SET UP PRINTOUT 

:1 00 IBB A 

47 

FO 

F 

C9E 



BC 

ALWAYS,ADCKAO 

GO PRINT BAR PR08 050 


* ROUTINE TO LOCALIZE BAR, PAR, OR RAR PROBLEMS 


1 001BBE 

41 

10 

0 

033 

ALOCOO LA 

GR1,51 

INITIALIZE ROUTINE | 

! 001BC2 

41 

90 

0 

033 

LA 

GR9,51 

it 

START WITH ERR 051 

1 001BC6 

41 

20 

F 

E4F 

LA 

GR2,BTAQN 

if 

DEFINE START OF TENS BAR PATTERN 

3 OOIBCA 

41 

30 

F 

EB3 

LA 

GR3 ,BTE0FF£10" 

11 

DEFINE END OF TENS’ BAR PATTERNS 

1 001BCE 

41 

40 

F 

DEB 

LA 

GR4,BUAON 

t i 

DEFINE START OF UNITS BAR PATTRN 

! 001BD2 

15 

43 



AL0C10*CLR 

GR4,GR3 

SEE 

IF END OF BAR PATTERNS 

j 001BD4 

07 

8B 



BCR 

EQUAL,GRB 

BR 

IF YES 

j 001BD6 

92 

00 

F 

234 

MVI 

SCPDAT,X*00* • 

SET 

COMPARE FIELD TO ZEROS 

j OOIBDA 

D2 

62 

F 

235 F 234 

MVC 

SCPDATCK99) t SCPDAT 

if 


| 001BE0 

15 

42 



CLR 

GR4,GR2 ; 

SEE 

IF UNITS BAR PATTERNS 

1 001BE2 

47 

40 

F 

C36 

BC 

LOW,AL0C4Q 

BR 

IF YES 

| 001BE6 

41 

50 

F 

E77 

LA 

• GR5»8TC0N 

SEE 

IF TEN-C-ON PATTERN 

j 001BEA 

15 

45 



CLR 

GR4,GR5 

tt 


OOIBEC 

47 

60 

F 

BF8 : 

BC 

NEQUAL,AL0C20 

, i 

BR IF NO 

001BFO 

92 

01 

F 

235 ' 

MVI 

SCPDAT£1,X*01« 

SET 

UP COMPARE FIELD FOR TENS-C ON 

DATE 

15JUL65 


17MAR66 

\V- ■ ■ ... 



ID F80 5-1 ° 

EC ' 

L24265 


125643 
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oooooooooooooooo 


F C42 
6 000 
F C2A 
7 000 

7 001 7 000 


F C2A 
F 266 
7 00A 
6 001 
F C04 

F 234 4 000 
F 23E F 234 
F C9E 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


* F804I 2821 SCAN/2540* READER/PUNCH 

F8031 BUFFER ADDR FLT -ROUTINE OVERLAY 03- 


0Q1BF4 
001BF8 
001BFC 
001C00 
001C04 
001C06 
001 COA 
001C0E° 
00 i C12 
001C16 
001C1C 
001C20 
001C22 
001C26 
001C2A 
001C2E 
001C32 
001C36 
001.C3C 
001C42 
001C46 
001C4A 
001C4E 
001C52 
001C56 
001C5A 
001C5E 
001X62 
001C66 
001C6A 
001C6E 
001C72 
001C76 
OOICTA 
001C7C 
001C80 
001C86 
001C8A 
001C90 
001C92 
001C96 
001C9A 
001C9E 
001CA0 
001CA1 
001CA2 
001CA4 
001CA8 
001CAA 
001CAB 
001CAC 
001CAE 
001C02 
001CB4 
001CB5 
003LCB6 
001CB8 
001CBC 
OOICCO 
001CC2 
001CC4 
001CC6 
001CCS 
001CCA 
001CCE 
001CD2 
001CD6 
001CDA 


ALGC52 

ALDC53 


F C8A 

F 235 7. 000 
P C90 

F 234 7 000 


F BBE 
0 06F 
0 06F 
F 234 

F 235 F 234 


15JUL65 17MAR66 

124265 125643, 


P/N 040260 
PAGE 3A. 


ALWAYS,ALGC5C 
GR5,10(GR0,GR4) 

. GR6,Q(GR0,GR4) 

GR7, SCPDAT 
GR5?GR6 
EQUAL,ALQC50 
0( GR6), X® 01* 

ALLOFFsAL0C30 
0(GR7),X•01• 

1(9,GR7)«0(GR71 
GRO,BTDON 
GR4«GR0 
NEQUAL,ALQC30 
SCPDAT65Q,X*01 8 - 
GR7,10(GRQ»GR7) 

GR6*1(GRQ,GR6) 
ALWAYS,AL0C21 
SCPDAT(10J y 0(GR4) 
SCPDATE10C 801,SCPDAT 
GRB,ADCKAO 
GR9,QCGRO,GRi I 
SWITCH,X *C0* 

ALLOFF,AL0C52 
SWITCH,/ 8 8G g 
ALLON,AL0C51 
GR8,20CGR0,GR8) 
GR9,2(GR0,GR9) 
GR7,DRPU 
ALWAYS,ALOC53 
GR 8,10 C GR 0 ,.GR 8! 

GR9,1(GRQ*GR9) 
GRTfDRDR 
GRA,AL0C60 
GR4,GR2 , 

LOW,AL0C54 
SCPDATC1{80) f 0(GR7l 
ALWAYS,AL0C54S6 
SCPDAT(80),0(GR7) 
EQUAL,GR8 
. GR1 * 3(GRO,GR1) 
GR4,10(GR0,GR4) 
ALWAYS,ALOC10 
X 9 DO * 

X * 44 8 
X 8 0? ® 

S(ERRX) 

ALWAYS,ADCK52 
X *DQ 8 
X *44* .. 

X * 07 8 
ST ERRX) 

ALWAYS,ADCK52 
X * DO * 

X 8 44 * 

X * 07 * 

S(ERRX) 

ALWAYS,ADCK52 
GR9,ERNUM 
X * DO * 

AL2T2) 

AL2(ERNUMC6—SECST) 

AL2T ERRX&4-SEC $T) 

ALWAYS,GRA 

GRB *ALOCOO 

GR1,111 

GR9,111 

SCPDAT,X* 01• • 

SCPDATCI(99),SCPDAT 


GO COMPARE 
INITIALIZE 


'MS LOAD COMPARE 


SEE IF END OF TENS LOAD 

BR IF YES - GO COMPARE 

SEE IF LOAD TEN ADDR. ERRS IN CMP FLO 

BR IF NO 

LOAD TEN ADDR ERRS 

, t 

SEE IF TENS D ON PATTERN 

■’It' SET UP FOR TENS D ON 
' „ SET UP FOR TENS 0 ON 

UPDATE ADDRESSES 

CONTINUE 

LOAD UNITS PATTERN 

INITIALIZE ERR BRCH ADDR 
INITIALIZE ERROR NUMBER 
SEE IF RAR OR PAR PROBLEM-, 

BR IF NO - GO COMPARE 
SEE IF RAR PROBLEM 
BR IF YES 

SET ERROR BRCH FOR PUNCH 

SET ERROR NUMBER- FOR PUNCH 

SET UP TO COMPARE TO PUNCH DATA 

GO COMPARE PUNCH DATA 

SET ERROR BRANCH FOR READER 

SET ERROR NUMBER FOR READER . 

SET UP TO COMPARE TO READ DATA 
SET UP ERROR NUMBER 
SEE IF UNITS BAR PATTERNS 
BR IF YES 

COMPARE DATA -TENS- , 

■COMPARE DATA -UNITS- : 

PRINT ERROR IF PATTERN EQUAL 
UPDATE ERROR NUMBER 
UPDATE PATTERN ADDRESS 
CONTINUE 

PRINT - BAR PROBLEM - ERROR NUMBER 
,, IN BYTE 3 OF GR 9 
‘ t t 7 CHARACTERS 
«» MESSAGE ADDRESS 

GO SEE IF WANT UTILITY RTN OR LOGOUT- 
PRINT - RAR PROBLEM - ERROR NUMBER 
«t IN BYTE 3 OF GR 9 
,, 7 CHARACTERS 
,, MESSAGE ADDRESS 

GO SEE IF WANT UTILITY RTN OR LOGOUT 
PRINT - PAR PROBLEM - ERROR NUMBER 
,, IN BYTE 3 OF GR 9 
,, 7 CHARACTERS 
,, MESSAGE ADDRESS 

GO SEE IF WANT UTILITY RTN OR LOGOUT 
CONVERT ERROR NUMBER TO DECIMAL 
CONVERT ERROR NUMBER TO EBCDIC 
,, 2 HEX BYTES 
tt HEX DATA ADDRESS 
,, EBCDIC DATA ADDRESS 
RETURN TO PROGRAM 
GO FIND RAR OR PAR PROBLEM 
INITIALIZE ERROR NUMBER 

SET UP COMPARE DATA FOR ERR 111/112 


ID F805-1 
PAGE 3A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


P/N 840260 
PAGE 4 

* F8041 2321 SCAN/2540' READER/PUNCH • 

F8051 BUFFER ADDR FIT -ROUTINE OVERLAY 03- 


001CE0 

45 

20 

F 

D84 




BAL 

GR2 , ADCKB1 

GO COMPARE 

o 


001CE4 

41 

90 

1 

002 




LA 

GR9,2{GR0,GRU 

UPDATE ERROR NUMBER 



00ICE8 

92 

00 

F 

234 




MV I 

SCPDAT* X * 00 * 

SET UP COMPARE DATA FOR 

ERR 

113/114 

001CEC 

92 

00 

F 

235 



* 

MVI 

SCP0ATS1* X * 00 * 

,, ' 



001CF0 

45 

20 

F 

D84 




BAL 

GR2 fADCKB1 

GO COMPARE 



001CF4 

41 

90 

1 

004 




LA 

GR9,4(GR0,GR15 

UPDATE ERROR NUMBER 



001CF8 

02 

01 

F 

236 

F 

234 


MVC 

SCPDAT62I2),SCPDAT 

SET UP COMPARE DATA FOR 

ERR 

115/116 

001CFE 

45 

20 

F 

D84 




BAL 

GR2,ADCKB1 

GO COMPARE 



001 D02 

41 

90 

1 

006 




LA 

GR9,6{GR0,GR18 

UPDATE ERROR NUMBER 



001D06 

02 

01 

F 

238 

F 

234 


MVC 

SCPDATC4(2 N SCPDAT 

SET UP.COMPARE DATA FOR 

ERR 

117/118 

001D0C 

45 

20 

F 

084 




BAL 

GR2» ADCKB1 

GO COMPARE 



001D10 

41 

90 

1 

008 




LA 

GR9, 8(GRG*GR1) 

UPDATE ERROR NUMBER 



001D14 

D2 

16 

F 

23A 

F 

234 


MVC 

SCPDATC6I23),SCPDAT 

SET UP COMPARE DATA FOR 

ERR 

119/120 

001D1A 

45 

20 

F 

D84 




BAL 

GR2*ADCKB1 

GO COMPARE 



001D1E 

41 

90 

i 

OOA 




LA 

GR9, T0(GRO,GR1) 

UPDATE ERROR NUMBER 



001 D22 

D2 

13 

F 

251 

F 

234 


MVC 

SCPDATS29I20),SCPDAT 

SET UP COMPARE FOR ERR 121/122 

001D28 

45 

20 

F 

084 




BAL 

GR2,ADCK81 

GO COMPARE 



001D2C 

41 

90 

1 

OOC 




LA 

GR9»12(GR0»GRi) 

UPDATE ERROR NUMBER 



C01D30 

D2 

62 

F 

235 

F ' 

234 


MVC 

SCPDATSH 991 , SCPDAT 

SET UP COMPARE DATA FOR 

ERR 

123/124 

001036 

45 

20 

F 

084 




BAL 

GR2,AD€K81 

GO COMPARE 



001D3A 

41 

90 

1 

OOE 




LA 

GR9,14(GRG,GR1I 

UPDATE ERROR NUMBER 


125/126 

001D3E 

92 

01 

F 

234 




MVI 

SCPDAT,X 8 01* 

SET UP COMPARE DATA FOR 

ERR 

001D42 

02 

06 

F 

235 

F 

234 . 


MVC 

SCPDAT8H7),SCPDAT 

♦ 9 



001D48 

45 

20 

F 

08 4 




BAL. 

GR2*ADCKB1 

GO COMPARE 



001D4C 

92 

01 

F 

234 




MVI 

SCPDAT,X*01 9 

SET UP COMPARE DATA FOR 

ERR 

130/131 

001D50 

02 

02 

F 

235 

■F 

234 


MVC 

SCPDAT61(991,SCPDAT 

9 9 



001D56 

92 

00 

F 

234 




MVI 

SCPDAT,X*00® 

9 9 



001D5A 

41 

90 

1 

013 




LA 

GR9,19(GR0,GR1) 

SET UP ERROR NUMBER 



001D5E 

45 

20 

F 

084 




DAL 

GR2 , ADCK81 

GO COMPARE 



001D62 

02 

07 

F 

235 

F ' 

234 


MVC 

SCPDAT61C 8),SCPDAT 

SET UP COMPARE DATA FOR 

ERR 

132/133 

001D68 

41 

90 

i 

015 




LA 

GR 9,21(GR0,GR1) 

SET UP ERROR NUMBER 



001D6C 

45 

20 

F 

084 




BAL 

GR2,ADCKB1 

GO COMPARE 



001070 

41 

90 

1 

010 




LA 

GR9,16(GR0»GR15 

UPDATE ERROR NUMBER 



00IDT4 

91 

80 

F 

SBC 




TM 

SWITCH,X 8 80® 

SEE IF READER 



001D78 

47' 

FO 

F 

DAS 




BC 

ALWAYS,ADCK63 

BR IF YES 



001D7C 

41 

90 

9 

001 




LA 

GR9?1(GRQ,GR9! 

UPDATE ERROR NUMBER FOR 

PUNCH 

001080 

47 

FO 

F 

DAS 




BC 

ALWAYS,ADCK83 

GO PRINT PUNCH ERROR 



001084 

41 

70 

F 

CAS 



ADCKB1 

LA 

GR7,ADCKAOS10 

INITIALIZE BRANCH 



001088 

41 

60 

F 

7E4 




LA 

GR6* DRDR 

SET UP TO COMPARE TO READER 

DATA 

001D8C 

91 

80 

F 

SBC 




TM 

SWITCH,X»80 8 

SEE IF READER 



001090 ■ 

47 

10 

F 

DAO 




BC 

ALLON,ADCK82 

BR IF YES 



00ID94 

41 

70 

7 

OOA 




LA 

GR7,10(GR0,GR7) 

SET UP PUNCH BRANCH ADDRESS 


001D98 

41 

60 

F 

850 




LA 

GR6,DRPU 

SET UP TO COMPARE TO PUNCH DATA 8 

00109C 

41 

90 

9 

001 




LA 

GR9,1(GR0,GR9) 

UPDATE ERROR NUMBER FOR 

PUNCH 

00IDAO 

05 

63 

F 

234 

6 

000 

ADCK82 

CLC 

SCPDAT(100),0IGR6I 

COMPARE DATA 



001DA6 

07 

62 






BCR 

NEQUAL,GR2 

BR IF NOT EQUAL . 



001DA8 

45 

AO 

F 

CBC 



ADCKB3 

BAL 

GRA , AL0C60 

GO CONVERT ERROR NUMBER 

TO DECIMAL 

001DAC 

07 

FI 






BCR 

ALWAYS,GR7 

GO PRINT ERROR NUMBER 


















* 

CCW,$ 

USED BY ROUTINE 03 



* 








♦•♦ft******************************************************************* 

OOIDBO 

C6 

001234 2000 

0064 

CRDCCW 

CCW 

X*C6 8 ,SCPDAT,X*20*,100 DIAG CK READ CCW - SILI ON 

001088 

01 

0012E8 2000 0050'* 

PUWCCW 

CCW 

X*01 9 ,SI0,X«20«,80 

WRITE PUNCH BUFFER - SILI ON 

001DCO 

C2 

001234 2000 0050 

PURCCW 

CCW 

X 8 C2 8 ,SCPDAT,X*20*,80 

READ PUNCH BUFFER - SILI 

ON 









*•*«•*»*•»*•****•••»#***•*****»••*••#•**•*•••••**•«••* *4?*** ***•*«•*»*** 








» 

CONSTANTS FOR ROUTINE 03 - NO BOUNDARY 


* 








*********************************************************************** 

001DC8 

0032 





C0M50 

DC 

X 9 0032 * 




001DCA 

F2F8F2F140E2C3C1D5 

.TITLE 

DC 

C * 2821 SCAN/2540, 8 




001DD3 

61F2F5F4F06B40 







001DDA 

C2E4C6C6C5D940CIC4 


DC 

C"BUFFER ADDR FLT* 




001 DEB 

C40940C6D3E3 








001DE9 

0000 





R03KO0 

DC 

X'OOOO 8 




OO1DE0 

000001000001010101 

BUAON 

OC 

X*00000100000101010101* 



001DF4 

01 












001DF5 

010100010100000000 

BUAOFF 

DC 

X 8 01010001010000000000 8 



001DFE 

00 












001DFF 

010100000100000101 

BUBON 

DC 

X'OIOIOOOOOIOOOOOIOIOI* » 
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001£08 

01 




001E09 

000001010001010000 

BUBQFF 

DC 

X 8 00000101000101000000 8 

QQ1E12 

00 




0Q1E13 

010101010000010000 

BUCON 

DC 

X*01010101000001000001 8 

0QXE1C 

01 




001 ElD 

000000000101000101 

BUCOFF 

DC 

X 8 00000000010100010100 8 

00IE26 

00 




001E27 8 

GOO1Q1O1O1O1O0OOO1 

BUDON 

DC 

X 8 00010101010100000100 9 

001E30 

00 




001E31 

010000000000010100 

BUDOFF 

DC 

X *01000000000001010001 9 

001E3A 

01 




001E3B. 

010000010101010100 

BUEON 

DC 

X 8 01000001010101010000 8 

001E44 

00 




001E45 

000101000*000000001 

BUEOFF 

DC 

X 8 00010100000000000101• 

001E4E 

01 




001E4F 

010000010000010101 

BT AON 

DC 

X 8 01000001000001010100 8 

00IE58 

00 



x 9 oooioioooioioooooboo 8 

001E59 

000101000101000000 

BTAOFF 

DC 

001E62 

00 




001E63 

010101000001000001 

8TB0N 

DC 

X 8 01010100000100000100 8 

001E6C 

00 




001E6D 

000000010100010100 

BTBOFF 

DC 

X 8 00000001010001010000« 

001E76 

00 




001E77 

010000000000000000 

BTCON 

DC 

X 8 01000000000000000000 8 

001E80 

00 




001E81 

000000000001010001 

BTCOFF 

DC 

X 8 00000000000101000100 8 

001E8A 

00 




001E8B 

000001010100000000 

BTDON 

DC 

X 8 00000101010000000000 * 

001E94 

00 




001E95 

010100000000000101 

BTDOFF 

DC 

X 8 01010000000000010100* 

001E9E 

00 




001E9F 

000100000101010101 

BTEON 

DC 

XTOOQIOOGOOIOIOIOIOIOO 8 

001EA8 

00 




001EA9 

010001010000000000 

BTEOFF 

DC 

X*01000101000000000000* 

001EB2 

00 




001EB3 

D5D640C509D9E240C4 

NOERR 

DC 

C»NO ERRS DETECTED* 

001EBC 

C5E3C5C3E3C5C4 





******************* *4 ********* ***»****»«*# *##*»*** »**##»»«*##***#* ***** 
* GENERAL REGISTER EQUATES * 
**********»********#********#*****#»***.#•»*## *#»****#****#**#***#****### 


000000 

GRO 

EQU 

0 

000001 

GR1 

EQU . 

1 

000002 

GR2 

EQU 

2 

000003 

GR3 

EQU 

3 

000004 

GR4 

EQU 

4 

000005 

GR5 

EQU 

5 

000006 

GR6 

EQU 

6 

00’0007 

GR7 

EQU 

7 

00000.8 

GR8 

EQU 

8 

000009 

GR9- 

EQU 

9 

0 00 0 0 A 

GRA 

EQU 

10 

000006 

GRB 

EQU 

11 

O0OOOC 

GRC 

EQU 

12 

OOOOOD 

GRD 

EQU 

13 

OOOOOE 

GRE 

EQU 

14 

OOOOOF 

GRF 

EQU 

15 


*********************************************************************** 
* CONDITION CODE EQUATES * 

*********************************************************************** 


000078 

HION 

EQU 

120 

HARDWARE I/O 

NEW 

PSW 

LOCATION 

000008 

ALLOFF 

EQU 

8 

ALL OFF 

0 



000005 

ANYON 

EQU 

5 

ANY ON 


1 

3 

000001 

ALLON 

EQU 

1 

ALL ON 



3 

000004 

MIXED 

EQU 

4 

MIXED 


1 


000009 

NMIXED 

EQU 

9 

NOT MIXED 

0 


3 

000008 

EQUAL 

EQU 

8 

EQUAL 

0 



000006 

NEQUAL 

EQU 

6 

NOT EQUAL 


1 2 


000004 

LOW 

EQU 

4 

LOW 


1 
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000002 

HIGH 

EQU 

2 

HIGH 

000008 

ZERO 

EQU 

8 

ZERO 

000002 

GZERO 

EQU 

2 

GREATER ZERO 

000008 

AVAIL 

EQU 

8 

AVAILABLE 

000004 

CSWST 

EQU 

4 

CSW STORED 

000002 

BUSY 

EQU 

2 

BUSY 

OOOOOF 

ALWAYS 

EQU 

15 

UNCONDITIONL 

OOOOOD 

NOTBSY 

EQU 

13 

NOT BUSY 

000007 

NZERO 

EQU 

7 

NOT CC 0 

000004 

NOTZRO 

EQU 

4 

NOT ZERO -AND- 

OOOOOC 

MIXNON 

EQU 

12 

MIXED OR NONE 


************** ft***************.******************.*. 


0 1 
0 1 
1 
I 

0 1 


• 

ERROR 

101 

- 

PAR 

TENS 

D 

INPUT TO BAR 

ALWAYS ACTIVE. 

* 

ERROR 

102 

- 

BAR 

TENS 

D 

OUTPUT NEVER 

ACTIVE. 

* 

ERROR 

103 

- 

RAR 

TENS 

D 

INPUT TO BAR 

NEVER ACTIVE. 

• 

ERROR 

104 

- 

PAR 

TENS 

D 

INPUT TO BAR 

NEVER ACTIVE. 

* 

ERROR 

105 

- 

BAR 

TENS 

E 

OUTPUT ALWAYS ACTIVE. 

• 

ERROR 

106 

- 

RAR 

TENS 

E 

INPUT TO BAR 

ALWAYS ACTIVE. 

* 

ERROR 

107 

- 

PAR 

TENS 

E 

INPUT TO BAR 

ALWAYS ACTIVE. 

• 

ERROR 

108 

- 

BAR 

TENS 

E 

OUTPUT NEVER 

ACTIVE. 

* 

ERROR 

109 

- 

RAR 

TENS 

E 

INPUT TO BAR 

NEVER ACTIVE. 

* 

ERROR 

110 

- 

PAR 

TENS 

E 

INPUT TO BAR 

NEVER ACTIVE. 

« 

ERROR 

111 

- 

RAR 

PROBLEM PROBABLY CAUSED BY ONE OF THE FOLLOWING- 


ERROR NUMBER LIST FOR ROUTINE 03 


1. 


ERROR 050 - BAR PROBLEM. ERROR PATTERN CANNOT BE IDENTIFIED.” 
PROBLEM MAY BE INTERMITTENT. 

OUTPUT ALWAYS ACTIVE. 

INPUT TO BAR ALWAYS ACTIVE. 


ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
? ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 


051 

052 

053 

054 

055 

056 

057 

058 

059 

060 

061 

062 

063 

064 

065 

066 

067 

068 

069 

070 

071 

072 

073 

074 

075 

076 

077 

078 

079 

080 

081 

082 

083 

084 

085 

086 

087 

088 

089 

090 

091 

092 

093 

094 


PAR 

BAR 

RAR 

PAR 

BAR 


BAR 

RAR 

PAR 

BAR 

RAR 


BAR UNITS A 
RAR UNITS A 
PAR UNITS A 
BAR UNITS A 
RAR UNITS A 
UNITS A 
UNITS B 

units'b 

UNITS 
UNITS 
RAR UNITS 
PAR UNITS 
UNITS 
UNITS 
UNITS 
UNITS 
UNITS 
PAR UNITS 
BAR UNITS 
UNITS 
UNITS 
UNITS 
UNITS D 
UNITS D 
UNITS 
UNITS 
UNITS 
UNITS 
UNITS 
UNITS 
TENS A 
TENS 
TENS 
TENS 
TENS 
TENS 
TENS 
TENS 
TENS 
TENS 
TENS 
TENS 
TENS 
TENS 


2 . 

3. 

4. 


INPUT TO BAR 
OUTPUT NEVER 
INPUT TO BAR 
INPUT TO BAR 
OUTPUT ALWAYS 


ALWAYS ACTIVE. 
ACTIVE. 

NEVER ACTIVE. 
NEVER ACTIVE. 
ACTIVE. 


INPUT TO BAR 
INPUT TO BAR 
OUTPUT NEVER 
INPUT TO BAR 
INPUT TO BAR 


ALWAYS ACTIVE. 
ALWAYS ACTIVE. 
ACTIVE. 

NEVER ACTIVE. 
NEVER ACTIVE. 
OUTPUT ALWAYS ACTIVE. 

INPUT TO 8AR ALWAYS ACTIVE. 
INPUT TO BAR ALWAYS ACTIVE. 
OUTPUT NEVER ACTIVE. 

INPUT TO BAR NEVER ACTIVE. 
INPUT TO BAR NEVER ACTIVE. 
OUTPUT ALWAYS ACTIVE. 

INPUT TO BAR ALWAYS ACTIVE. 

ALWAYS ACTIVE. 
ACTIVE. 

NEVER ACTIVE. 
NEVER ACTIVE. 
ACTIVE. 


INPUT TO BAR 
OUTPUT NEVER 
INPUT TO BAR 
INPUT TO BAR 
OUTPUT ALWAYS 


ALWAYS ACTIVE. 
ALWAYS ACTIVE. 
ACTIVE. 

NEVER ACTIVE. 
NEVER ACTIVE. 
ACTIVE. 


ERROR 095 - 

ERROR 096 - 
ERROR .097 
ERROR 098 
ERROR 099 
ERROR 100 


RAR 
PAR 
BAR 
RAR 
PAR 
BAR 
RAR 
PAR 
BAR 
RAR 
PAR 
BAR 
RAR 
PAR 
BAR 
RAR 
PAR 
BAR 
RAR 
PAR 
BAR 
RAR 
PAR 
BAR 

RAR TENS C INPUT TO BAR ALWAYS ACTIVE - OR, RAR 
TENS C TRIGGER ALWAYS ACTIVE. 

PAR TENS C INPUT TO BAR ALWAYS ACTIVE - OR, PAR' 
TENS C TRIGGER ALWAYS ACTIVE. 

BAR TENS C OUTPUT NEVER ACTIVE. 

RAR TENS C INPUT TO BAR NEVER ACTIVE. 

PAR TENS C INPUT TO BAR NEVER ACTIVE. 

BAR TENS D OUTPUT ALWAYS ACTIVE. 

RAR TENS D INPUT TO BAR ALWAYS ACTIVE. 


INPUT TO BAR 
INPUT TO BAR 
OUTPUT NEVER 
INPUT TO BAR 
INPUT TO BAR 
OUTPUT ALWAYS 
A INPUT TO BAR ALWAYS ACTIVE. 

A INPUT TO BAR ALWAYS ACTIVE. 

A OUTPUT NEVER ACTIVE. 

INPUT TO BAR NEVER ACTIVE., 
INPUT TO BAR NEVER ACTIVE. 

B OUTPUT ALWAYS ACTIVE. 

INPUT TO BAR ALWAYS ACTIVE. 
INPUT TO BAR ALWAYS ACTIVE. 
OUTPUT NEVER ACTIVE. 

INPUT TO BAR NEVER ACTIVE. 
INPUT TO BAR NEVER ACTIVE. 
OUTPUT ALWAYS ACTIVE. 

INPUT TO 8AR ALWAYS ACTIVE - 


UNITS AND/OR TENS TRIGGERS A AND/OR B 
ALWAYS ACTIVE. 

UNITS TRIGGER A NEVER ACTIVE. 

TENS TRIGGERS D AND/OR E NEVER ACTIVE. 

FALSE ADORESS CHECKS. 

SAME AS ERROR 111 EXCEPT FOR PAR. 

RAR UNITS TRIGGER B NEVER ACTIVE. 

PAR UNITS TRIGGER B NEVER ACTIVE. 

RAR UNITS C TRIGGER NEVER ACTIVE. 

PAR UNITS C TRIGGER NEVER ACTIVE. 

RAR UNITS D TRIGGER NEVER ACTIVE. 

PAR UNITS D TRIGGER NEVER ACTIVE. 

TENS B TRIGGER NEVER’ACT IVE« 

TENS B TRIGGER NEVER ACTIVE. 

TENS C TRIGGER NEVER ACTIVE. 

TENS C TRIGGER NEVER ACTIVE. 

RAR PROBLEM PROBABLY CAUSED BY ONE OF THE FOLLOWING- 

1. UNITS AND/OR TENS TRIGGERS D AND/OR E 
ALWAYS ACTIVE. 

2. UNITS ADVANCE NEVER ACTIVE. 

3. TENS ADVANCE NEVER ACTIVE. 

SAME AS ERROR 123 EXCEPT FOR PAR. 

RAR UNITS C TRIGGER ALWAYS ACTIVE. 

PAR UNITS C TRIGGER ALWAYS ACTIVE. 

RAR PROBLEM. ERROR PATTERN CANNOT BE IDENTIFIED. 
PROBLEM MAY BE INTERMITTENT 

ERROR 128 - PAR PROBLEM. ERROR PATTERN CANNOT BE IDENTIFIED. 
PROBLEM MAY BE INTERMITTENT. 

PROBLEM IN CIRCUITS USED TO DETECT COLUMN 80. 

RAR UNITS E TRIGGER NEVER ACTIVE. 

PAR UNITS E TRIGGER NEVER ACTIVE 
RAR TENS A TRIGGER NEVER ACTIVE. 

PAR TENS A TRIGGER NEVER ACTIVE 
FALSE ADDRESS CHECKS 
***********.***************************»*****************»«»*********** 
»*•#«*»** ii«»»««•«»«»*••««•««»««»«*«•»«»««#«»••««•«««*««*«••«««««»•**«• 

END 


ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 


ERROR 

ERROR 

ERROR 

ERROR 


ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 


112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 
123 


124 

125 

126 
127 


129 

130 

131 

132 

133 

134 


RAR 

PAR 

RAR 

PAR 


DATE 

EC 


15JUL65 

124265 
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125643 
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POST ASSEMBLY DATA« 


REFERENCES TO DEFINED SYMBOLS, 


! ■ 1 

1048 

CAW 

1942, 

1B62, 

1B88 





i . i 

1040 

csw 








! i 

0 

GRO 

1A0E, 

1ABE, 

1AC2, 

1BF8, 

1BFC , 

1C1C, 

1C20 

j 



1C2A, 

1C2E, 

1C46, 

1C5A, 

1C5E , 

1C6A , 

1C6E 

j , 



1C92, 

1C96, 

1CE4, 

1CF4, 

1D02, 

1D10 , 

1D1E 




1D2C, 

1D3A, 

1D5A, 

1068, 

1070, 

1D7C, 

1D94 




1D9C 







j i 

1 

GR1 

193E, 

1942, 

19E2, 

19EE , 

19FA, 

19FE , 

1A08 




1A0E, 

1A0E, 

1B5E, 

1B62, 

1B84, 

1888, 

1BBE 

) 



1C46, 

1C92, 

1C92, 

1CCE, 

1CE4, 

1CF4, 

1D02 

1 

f 



1010, 

1D1E, 

1D2C, 

1D3A* 

1D5A, 

1D68 , 

1D70 

1 i 

2 

GR2 

19E6, 

19F2, 

19FA, 

1BC6, 

1BE0, 

1C7A, 

ICED 

* 



1CF0* 

1CFE, 

1D0C, 

1D1A, 

1028, 

1036, 

1D48 




1D5E, 

1D6C, 

1DA6 





I 1 

3 

GR3 

19EA, 

19F6, 

19FC, 

1A84, 

1A9C , 

1AEC , 

1BCA 




1BD2 







i 

4 

GR4 

1BC£, 

1BD2, 

1BE0, 

1BEA, 

1BF8, 

1BFC , 

1C20 




1C36, 

1C7A, 

1C96, 

1C96 




i i 

5 

GR5 

1BE6, 

1BEA, 

1BF8, 

1C 04 




i 1 

6 

GR6 

1BFC» 

1C04, 

1C0A, 

1C2E, 

1C2E , 

1D88, 

1098 




1DA0 







i 

7 

GR7 

ICOOt 

1C 12, 

1C 16, 

1C 16, 

1C2A, 

1C2A, 

1C62 




1C72, 

1C80, 

1C8A, 

1084, 

1D94 , 

1094, 

1DAC 

! i 

8 

GR8 

192E, 

1A64, 

1AAA, 

1C42, 

1C5A , 

1C5A, 

1C6A 




1C6A* 

1C90 






j 1 

9 

GR9 

1B2A, 

1B36, 

1BA6, 

1BB2, 

1BC2, 

1C46, 

1C5E 




1C5E, 

1C6E, 

1C6E, 

ICBC, 

1CD2 , 

1CE4, 

XCF4 




1D02, 

ID 10, 

1D1E, 

1D2C, 

1D3A, 

1D5A, 

1D68 




’ 1070, 

1D7C, 

1D7C, 

1D9C, 

1D9C 



! '■ i 

A 

GRA 

1B2E, 

1B4E, 

1BAA, 

1BB6, 

1C76, 

1CC8, 

1DA8 

i 

8 

GRB 

194E, 

1976, 

19A2, 

19CA, 

180E, 

1B6E , 

1B90 




1BD4, 

1CCA 






1 i 

C 

GRC 

1946, 

199A, 

1B66 





i 

D 

GRD 








i 

E 

GRE 

1AAE 







i 

F 

GRF 








i 

4 

LOW 

18E2, 

1C7C 






i 

12E8 

SIO 

194E, 

1976, 

19A2, 

19CA, 

186E, 

1B90, 

1B9C 




1DB8 







i 

2 

BUSY 








100 

17 E4 

DR DR 

1982, 

19E2, 

19E6, 

1A30, 

1A74, 

1B20, 

1C72 




1D8S 







100 

1850 

DRPU 

19D6, 

19EE, 

19F2, 

1A3A, 

1A4C, 

1A8C, 

1C62 




1098 







8 

18BD 

ERRX 

1CA2, 

1CAC, 

1CB6, 

1CC6 




1 

16EC 

EXIT 

1914, 

1AB2, 

1A3A 





1 

48 

MCAW 








1 

40 

HCSW 








1 

2 

HIGH 








1 

78 

H ION 








4 

1AAE 

PERT 

. 1A6C 







1 

1004 

SNSW 

1918, 

1926, 

1A5C, 

1A68, 

1AA2 



1 

1231 

UAPU 

19AE, 

1A90 






1 

122D 

UARD 

195A, 

1A78 






1 

8 

ZERO 








1 

1 

ALLON 

197E, 

1902, 

1AB2, 

1B76, 

1B98* 

1C56, 

1D90 

1 

5 

ANYON 








1 

8 

AVAIL 








10 

1E4F 

BT AON 

1BC6 







10 

1E63 

BTBON 








10 

1E77 

BTCQN 

1BE6 
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10 

1E8B 

BT DON 

1C1C 







10 

1 E9F 

BT EON 








10 

1DEB 

BU AON 

1BCE 







10 

1DFF 

BUBON 








10 

1613 

BUCON 








10 

1E27 

BUDON 








10 

1E3B 

BUEON 








2 

1DC8 

C0M50 

1B3A, 

1B44 






1 

UFA 

CSW AG 

1988, 

19DC 






1 

4 

CS W ST 








1 

8 

EQUAL 

1910, 

19FC, 

1A36, 

1A40, 

1BD4 , 

1C06, 

1C90 

8 

17D8 

ERNUM 

1AC2, 

1ACA, 

1ACC, 

1ACE, 

ICBC, 

1CC4 


1 

2 

GZERO 








16 

18C5 

LGMSG 

1A78, 

1A90, 

1AD8 





1 

1202 

MESS 1 

195A, 

1964, 

19AE, 

19B8 




1 

4 

MIXED 








16 

1EB3 

NOERR 

1A5A 







1 

7 

NZERO 

• 







1 

1908 

RTN03 

1015 







1 

1000 

/SECST 

1000, 

1000, 

1000, 

1000, 

1000, 

1000, 

1000 




1000, 

1000, 

1000, 

1000, 

1000, 

1000, 

1000 




1000, 

1000, 

1000, 

1000, 

1000, 

1000, 

1000 




1000, 

1000, 

1000, 

1000, 

1018, 

1A74, 

1A76 




1A8C, 

1A8E, 

1ACA, 

1ACC, 

1CC4, 

1CC6 


1 

11F7 

SENSE 








16 

1DCA 

TITLE 

1924 







1 

10E0 

UN IT 1 








1 

10E4 

UNIT2 








6 

1932 

ADCKOO 

192A, 

1966 






6 

195 A 

ADCK01 

197E 







6 

196A 

ADCK10 

1956 







6 

198E 

ADCK20 

198A 







6 

19 AE 

ADCK21 

19D2 







6 

19BE 

ADCK30 

19AA 







4 

19E2 

ADCK40. 








2 

19FA 

ADCK41 

19EA, 

1A12 






4 

1A16 

ADCK50 

19F6 







6 

1A4C 

ADCK51 

1A36 







4 

1A5C 

ADCK52 

1CA4, 

1CAE, 

1CB8 





4 

1 ABE 

ADCK53 

1A84, 

1A9G 






4 

1AEE 

ADCK60 

1A1A 







4 

1AFA 

ADCK70 

1A22, 

1A52 






4 

1B02 

ADCK80 

1A40, 

1AF6 






4 

1B0A 

ADCK90 

1A48, 

1AF2 






4 

1B36 

ADCK91 

1B26 







4 

1B56 

ADCK92 

1B40, 

1B4A 






4 

1BB2 

ADCK93 

1B5A, 

1BA2 






2 

1C9E 

ADCKAO 

1B32, 

1B52, 

1BAE, 

1BBA, 

1C42, 

1084 


4 

ICC A 

ADCKBO 

1AFE, 

1B06 






4 

1084 

ADCKB1 

1CE0, 

1CF0, 

1CFE, 

1D0C, 

101A , 

1D28, 

1036 




1D48, 

1D5E, 

106C 





6 

1DA0 

ADCKB2 

1D90 







4 

1DA8 

ADCKB3 

1D78, 

1080 






1 

8 

ALLOFF 

191C, 

192A, 

1956, 

19AA, 

1A60, 

1A6C, 

1AA6 




1B5A, 

1C0E, 

1C4E 





4 

1BBE 

ALOCOO 

1B0E, 

1CCA 






2 

1B02 

AL0C10 

1C9A 







4 

1BF8 

AL0C20- 

1BEC 







2 

1C04 

AL0C21 

1C32 







4 

1C2A 

AL0C30 

1C0E, 

1C22 






6 

1C36 

AL0C40 

1BE2 








lC4fc 

AL0C50 

1BF4, 

1C06 






4 

1C6A 

AL0C51 

IC56 







4 

1C72 

AL0C52 

1C4E 







4 

1C76 

AL0C53 

1C66 







6 

1C8A 

AL0S54 

IC7C, 

1C86 






4 

ICBC 

AL0C60 

1B2E, 

1B4E, 

1BAA, 

1BB6, 

1C 7 6 , 

1DA8 


1 

F 

ALWAYS 

1914, 

1966, 

19BA, 

1A12, 

1A48 , 

1ABA, 

1AEC 



DATE 

EC 


15JUL65 17MAR66 

124265 125643 


10 F805-1 

PAGE 6A 
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00000000000 
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P/N 840260 
PAGE 7A 





1AF6, 

1AFE, 

1B06, 

1B32, 

IB 52, 

1BAE 9 

1BB A 




1BF4, 

1C32, 

1C66, 

1C 86, 

1C9A, 

1CA4 , 

1C AE 




1CB8, 

ICC 8, 

1078, 

1080, 

1DAC 



10 

IE 59 

BTAOFF 








10 

1E60 

BTBOFF 








10 

1E81 

BTCOFF 








10 

1E95 

BTDOFF 








10 

1EA9 

BTEOFF 

1BCA 







10 

1DF5 

BUAOFF 








10 

1E09 

BUBOFF 








10 

1E1D 

BUCOFF 








10 

1E31 

BUDOFF 








10 

1E45 

BUEOFF 








1 

114C 

CAWKEY 








8 

1DB0 

CRDCCW 

193E 







1 

112C 

CSWSAV 








1 

16E6 

EXITBY 








4 

190C 

INITOQ 

1B76, 

1B98 






4 

1918 

INIT01 

1910 







4 

1926 

INITIO 

19IC 







16 

18DF 

LGMSG1 

olACE 







1 

C 

MIXNON 








1 

6 

NEQUAL 

1A1A, 

1A22, 

1A52, 

1AF2, 

1B26, 

1B40, 

1B4A 




1BA2, 

1BEC, 

1C22, 

1DA6 




1 

9 

NMIXED 








1 

D 

NOTBSY 








1 

4 

NOTZRO 








8 

18 B4 

PCSWAG 

19DC v 

1A1E, 

1A96, 

1AEE, 

1B44 



8 

1DC0 

PURCCW 

1B84 







8 

1DB8 

PUWCCW 

1B5E 







2 

1DE9 

R03K00 

1932, 

196A, 

198E, 

19BE 




8 

1848 

RCSWAG 

1988, 

1A16, 

1A7E, 

1B3A 




4 

17E0 

RESCNT 

1A7E, 

1A96, 

1ABE 





1 

179C 

SCHNUM 

190C, 

1AB6 






I 

1234 

SCPDAT 

1932, 

1938, 

1938, 

1952, 

196A , 

1970, 

1970 




197A, 

1982, 

198E, 

1994, 

1994, 

19A6, 

19BE 




19C4, 

19C4, 

19CE, 

19D6, 

19FE , 

1A04 , 

1A08 




1A26, 

1A2A, 

1A2A, 

1A30, 

1A3A , 

1A4C , 

1A76 




1A8E, 

1ADE, 

1AE4, 

IAEA, 

1B12, 

1616, 

1B16 




1B1C, 

1B20, 

1B7A, 

1B7E , 

1B7E, 

1B9C, 

18D6 




1BDA, 

1BDA, 

1BF0, 

1C00, 

1C26, 

1C36, 

1C3C 




1C3C, 

1C80, 

1C8A, 

1CD6, 

1CDA , 

1CDA , 

1CE8 




1CEC, 

1CF8, 

1CF8, 

1D06, 

1006, 

1D14 V 

1D14 




1D22, 

1D22, 

1D30, 

1D30, 

1D3E , 

1D42, 

1D42 




1D4C, 

1050, 

1050, 

1056, 

1D62 , 

1D62 , 

1 DAO 




1DB0* 

1DC0 






1 

163E 

SCPROO 

192E, 

1A64, 

1AAA 





1 

1140 

SIOSWS 

194A, 

199E , 

1B6A, 

1B72, 

1B8C , 

1B94 


1 

112C 

SI0VR3 








1 

1134 

SI0VR4 








1 

11F8 

STATSV 








1 

18BC 

SWITCH 

1A44, 

1AFA, 

1B02, 

1B0A, 

1B56, 

1C4A , 

1C52 




1074, 

1D8C 






1 

10E2 

UNIADR 

1946 







1 

10 E6 

UN2ADR 

199A, 

1B66 






1 

1000 

XF8051 









,8051 TITLE F8051 READER TRANSLATOR FLT -ROUTINE OVERLAY 04- 

XF8051 START 4096 

001000 USING *,15 

002000 ' USING *64096,10 

««*«*»***»««»««*««***************************************************** 

* THIRD OVERLAY - ROUTINE 04 * 

****************** ***************************************************** 

* RESIDENT LABELS ADDRESSED BY OVERLAYS * 


001000 

SECST 

EQU 

* 

001004 

SNSW 

EQU 

SECST64 

001040 

CSW 

EQU 

SECST664 

001048 

CAW 

EQU 

SECST672 

OOIOEO 

UNIT1 

EQU 

SECST6224 

0010E2 

UN 1ADR 

EQU 

SECST6226 

0010E4 

UNIT2 

EQU 

SECST6228 

0010E6 

UN2ADR 

EQU 

SECST6230 

00112C 

SI0VR3 

EQU 

SECST6300 

001134 

SI0VR4 

EQU 

SECST6308 

00114D 

SIOSWS 

EQU 

SECST6333 

0011F8 

STATSV 

EQU 

SECST6504 

0011FA 

CSWAG 

EQU 

SECST6506 

001231 

UAPU 

EQU 

SECST6561 

001-12C 

CSWSAV 

EQU 

SECST6300 

00114C 

CAWKEY 

EQU 

SECST6332 

0011F7 

SENSE 

EQU 

SECST6503 

0012 2D 

UARD 

EQU 

SECST6557 

0016EC 

EXIT 

EQU 

SECST61772 

0016E6 

EXITBY 

EQU 

SECST61766 

00179C 

SCHNUM 

EQU 

SEC ST61948 

001234 

SCPDAT 

EQU 

SECST6564 

00163E 

SCPROO 

EQU 

SECST61598 

0012E8 

$10 

EQU 

SECST6744 

001060 

SVRPSW 

EQU 

SECST696 

001714 

EXIT1 

EQU 

SECST61812 

00171C 

EXIT2 

EQU 

SEC ST61820 

000048 

HCAW 

EQU 

72 

000040 

HCSW 

EQU 

64 

001202 

MESS1 

EQU 

SEC ST6514 

00114D 

SIOSWS 

EQU 

SECST6333 




001015 

ORG 

SEC ST621 

001015 

001950 


DC 

AL3IRTN04) 



001060 

ORG 

SEC ST696 

001060 

OlOOOOOOOJfc 


DC 

X * 010000000F * 

001065 

Q01BBB 


DC 

AL3(RDCRD1) 



0017DO 

ORG 

SEC STG2000 


NO ERROR DETECTED IN ABOVE ASSEMBLY 


15JUL65 

124265 


17MAR66 

125643 


ID F805-1 
PAGE 7 


0017D0 

0017D0 

0017D8 


0017E0 

0017E0 

0017E4 


0017E8 

0017F1 

0017F6 


DATE 

EC 


0000000000000000 

0000000000000000 


00000000 

00000000 


oooooooooooooooooo 

0000000000 

000000000000000000 


*********************************** »*»*#«****************************** 

INITIAL PSW STARTING ADDR FOR RTN 04 
SVC RETURN PSW 

in,****##**#*******************#**************************************** 

*********************************************************************** 

* VARIABLES-DOUBLE WORD BOUNDARY- * 

*********************************************************************** 

CNOP 0,8 

WKAR3 DC XL8 *00 1 

WKAR4 DC XL 8 * 00• 

ft********************************************************************** 

* VARIABLES - WORD BOUNDARY- » 

•♦a******************************************************************** 

CNOP 0,4 

TSTOR DC XL4’00 * 

ERNO OC XL4 *00 1 


* VARIABLES. -NO BOUNDARY- 

»»•**»*#•»•»*****«**••«*•***••***••************^********* 
DRDAT DC 6XL14*00» 


15JUL65 

124265 


17MAR66 

125643 




ID F805-1 
PAGE 7A 
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00I7FF 0000000000 

001804 000000000000000000 

001800 0000000000 

001812 000000000000000000 

00181B 0000000000 

001820 000000000000000000 

001829 OOOOOOOOOO 

00182E 000000000000000000 

001837 OOOOOOOOOO 

00183C OOOOOOOOOOOOOOOQOO SENDAT DC 6XL14»00* 

001845 OOOOOOOOOO 

00184A 000000000000000000 

001853 OOOOOOOOOO 

001858 000000000000000000 

001861 OOOOOOOOOO 

001866 000000000000000000 

00186F OOOOOOOOOO 

001874 OOOOOOOOOOOOOOOQOO 

00187D OOOOOOOOOO 

001882 000000000000000000 

00188B OOOOOOOOOO 

001890 000000000000000000 CKROAT DC 6XL14®00® 

001899 OOOOOOOOOO 

00189E 000000000000000000 

0018A7 OOOOOOOOOO 

0018AC 000000000000000000 

0018B5 OOOOOOOOOO 

0018BA OOOOOOOOOOOOOOOQOO 

0018C3 OOOOOOOOOO 

0018C8 OOOOOOOOOOOOOOOQOO 

0018D1 OOOOOOOOOO 

0018D6 OOOOOOOOOOOOOOOQOO 

0018DF OOOOOOOOOO 

0018E4 OOOOOOOOOOOOOOOQOO COMDAT DC 6XL16*00 9 

0018ED 00000000000000 

0018F4 OOOOOOOOOOOOOOOQOO 

0018FD OOOOOOOOOOOOOO 

001904 OOOOOOOOOOOOOOOQOO 

00190D OOOOOOOOOOOOOO 

001914 000000000000000000 

00191D OOOOOOOOOOOOOO 

001924 000000000000000000 

00192D OOOOOOOOOOOOOO 

001934 000000000000000000 

00193D OOOOOOOOOOOOOO 

001944 00 ERSW1 DC X'QO® 

001945 C5D9D940E7E7E7E7 ERRX DC C 8 ERR XXXX® 

• •*#«•******•*•**»*•»**•»****••*••«***•«-**•**-**************•***«***•*•* 
* ROUTINE 04 PREFIX . * 

•**•**•«#*•*•«***«*******#»****»»***************»»«**«***•**•»**•»«»*»* 


00194E 





CNOP 

0» 4 


00194E 

07 00 




BCR 

0,0 


001950 

04 



RTN04 

DC 

XL 1 8 04 * 

ROUTINE NUMBER 

001951 

00 




DC 

XL 1•00• 

FLAGS 

001952 

FFFE 




DC 

X 9 FFFE * 

ADDRESS OF NEXT ROUTINE 

001954 

95 84 

F 

79C 

RT 00 

CL I 

SCHNUM t X•84 8 

SEE IF SHOULD RUN THIS ROUTINE 

001958 

47 80 

F 

96E 


BC 

EQUAL,RT01 

,, BRCH IF YES 

00195C 

95 00 

F 

79C 


CL I 

SCHNUM,X»00 8 

SEE IF SHLO RUN THIS ROUTINE 

001960 

47 80 

F 

96E 


BC 

EQUAL,RT01 

,, BRCH IF YES 

001964 

D2 02 

F 

065 F FED 

RTOX 

MVC 

SVRPSWC5C3),SCRAP 

SET UP RETURN SVC PSW ADDR 

00196A 

47 FO 

F 

714 


BC 

ALWAYS,EX1T1 

BYPASS DATA CARDS & ROUTINE EXIT 

00196E 

91 02 

F 

004 

RT01 

TM 

SNSW,X * 02• 

SEE IF WANT TITLE PRINTOUT 

001972 

47 80 

F 

97C 


BC 

ALL0FF,RTQ2 

, , BRCH IF NO 

001976 

OA DO 




SVC 

X 'DO * 

PRINT TITLE 

001978 

80 




DC 

X* 80* 

,, NORMAL OUTPUT 

001979 

OE 




DC 

X 9 OE ' 

,, 14 CHARACTERS 

00197A 

F F58 




DC 

S(TITLE) 

,, ADDRESS OF TITLE 

DATE 

15JUL65 


17MAR66 




ID F805-1 

EC. 

124265 


125643 




PAGE 8 




3 00000000 00 00 0 000 
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00197C 

91 

40 

F 

004 



RT02 

TM 

SNSW,X , 40 9 

SEE IF WANT UTILITY ROUTINE 

001980 

47 

80 

F 

988 


* • 


BC 

ALLOFF,RT03 

,, BRCH IF NO 

001984 

45 

80 

F 

63E 




BAL 

GR8,SCPROO 

BRCH TO UTILITY ROUTINE 








# 

DATA 

COLLECTION ROUTINE 


001988 

41 

°10 

F 

E58 



RT03 

LA 

GR1,INDAT 

INITIALIZE 

00198C 

41 

20 

F 

7E8 




LA 

GR2,DRDAT 


001990 

41 

30 

F 

83C 




LA 

GR3,SENDAT 


001994 

41 

40 

F 

890 


* 


LA 

GR4,CKROAT 


001998 

IB 

66 






SR 

GR6,GR6 


00199A 

92 

00 

F 

8E4 




MVI 

*COMDAT,X 9 00* 


00199E 

D2 

5E 

F 

8E5 

F 

8E4 


MVC 

COMDATSK 951,COMDAT 


0019A4 

45 

AO 

F 

BE6 



RT04 

BAL 

GRA,DWR 

GO PERFORM DIAG WRITE TO READER 

0019A8 

45 

AO 

F 

CIO 




BAL 

GRA,DRR 

GO READ RD BUFFER 

0019AC 

D7 

03 

F 

7E0 

F 

7E0 


XC 

T STOR(4),TSTOR 

COMBINE READ DATA & INVAL CARD CODE 

0019B2 

D2 

00 

F 

7E0 

2 

000 


MVC 

TSTOR(1),0IGR21 

* t 

0019B8 

91 

08 

3 

000 




TM 

0(GR3),X 9 08• 

,, 

0019BC 

47 

80 

F 

9C4 




BC 

ALLOFF,RT05 

t t 

0019C0 

92 

80 

F 

7E1 




MVI 

TST0RC1,X 9 8Q 9 

»» 

0019C4 

58 

BO 

F 

7E0 



RT05 

L 

GRB,TSTOR 

, , 

0019C8 

18 

96 






LR 

GR9,GR6 

»t 

0019CA 

5C 

80 

F 

E48 




M 

GR8,NINE 

, * 

0019CE 

IB 

88 






SR 

GR8*GR8 

ft 

0019DO 

50 

80 

F 

E4C 




D 

GR8,EIGHT 

99 

0019D4 

88 

BO 

8 

000 




SRL 

GRB * 0(GR8) 

,, 

0019D8 

50 

BO 

F 

7E0 




ST 

GRB,TSTOR 

* t 

0019DC 

41 

99 

F 

8E4 




LA 

GR9,C0MDAT(GR9) 

11 

0019E0 

D6 

03 

9 

000 

F 

7E0 


OC 

0(4,GR9),TSTOR 

tt 

0019E6 

41 

60 

6 

001 




LA 

GR6,1(GR0,GR6) 

SEE IF END OF DATA COLLECTION 

0019EA 

41 

BO 

0 

051 




LA 

GRB,81(GR0,GR0) 

11 

0Q19EE 

15 

6B 






CLR 

GR6,GRB 

* t 

0019F0 

47 

80 

F 

A08 




BC 

EQUAL,RT06 


0019F4 

41 

10 

l 

002 




LA 

GR1,2(GR0,GR11 

UPDATE ADDRESSES FOR NEXT CHARACTER 

0019 F 8° 

41 

20 

2 

001 




LA 

GR2,1(GRO,GR2) 

»*t 

0019FC 

41 

30 

3 

001 




LA 

GR3,1(GR0,GR3) 

, t 

001AOO 

41 

40 

4 

001 




LA 

GR4,1(GR0»GR4) 

, t 

001A04 

47 

FO 

F 

9A4 




BC 

ALWAYS,RT04 

GO COLLECT DATA FOR NEXT CHARACTER 

001A08 

41 

10 

1 

002 



RT06 

LA 

GR1,2(GR0,GR1) 


OOIAOC 

45 

AO 

F 

BE6 




BAL 

GRA,DWR 

CLEAR VALIDITY CHECK 


* ERROR DETECTION ROUTINE 

# 


001A10 

D5 

5B 

F 

8E4 F EFC 

RT 10 

CLC 

COMDAT(92),OUTDAT 

SEE IF GOT ANY ERRORS 

001A16 

47 

60 

F 

A1E • 


BC 

NEQUAL »RT20 

,, BRCH IF YES 

001A1A 

47 

FO 

F 

C6C * 


BC 

ALWAYStLGOUT 

GO SEE IF WANT LOG OUT 

001A1E 

41 

10 

0 

054 

; RT20 

LA 

GR1»84(GR0,GR0) 

INITIALIZE DATA RECORD COUNT 

001A22 

92 

84 

F 

79C 


MVI 

SCHNUM,X*84 9 

SET UP TO BYPASS ALL REMAINING OVLYS 

001A26 

OA 

DB 




SVC 

X 9 DB • 

LOAD FIRST DATA CARD IN BUFFER 

001A28 

0234 




DC 

AL2(SCPDAT-SECST) 

i f 

001A2A 

45 

BO 

F 

B8E 

PT051 

BAL 

GRB,RDCRD 

GO READ A DATA CARD 

001A2E 

41 

90 

F 

234 

PT06 

LA 

GR9,SCPDAT 

SET UP CURRENT DATA ADDRESS 

001A32 

92 

00 

F 

944 

PT061 

MVI 

ER$W1*X 9 00 9 

RESET ERR SW I 

001A36 

IB 

22 




SR 

GR2,GR2 

SET COUNT OF MASKS IN GR Z 

001A38 

43 

20 

9 

000 


IC 

GR2,0(GR0,GR9) 

it. 

001A3C 

41 

90 

9 

001 


LA 

GR9,1(GR0,GR9) ’ 

UPDATE CURRENT ADDR BY 1 

001A40 

43 

30 

9 

000 

PT062 

It 

GR 3,0(GR0*GR9) 

SET CC IN GR 3 

001A44 

89 

30 

0 

018 


SLL 

GR3,24 


001A48 

41 

90 

9 

001 


LA 

GR9,1(GR0,GR9> 

UPDATE CURRENT ADDR BY 1 

001A4C 

41 

40 

0 

004 


LA 

GR4,4(GR0,GR0) 

SET 4 IN GR 4 

001A50 

41 

50 

F 

8E4 

PT063 

LA 

GR5,COMDAT 

SET TEST DATA ADDR 

001A54 

IB 

88 




SR 

GR8,GR8 

SET UP TEST ADDRESS 

001A56 

43 

80 

9 

000 


IC 

GR8,0(GR0,GR91 

tt . 

001A5A 

41 

58 

5 

000 


LA 

GR5,0(GR8,GRS1 

tt 

001A5E 

41 

90 

9 

001 


LAp 

GR9,1(GR0,GR9) 

UPDATE CURRENT ADDR BY 1 

001A62 

43 

60 

9 

000 


IC 

GR6,0(GR0,GR9I 

SET UP MASK 

001A66 

41 

90 

9 

001 


LA 

GR9,1(GR0,GR9) 

UPDATE CURRENT ADDR BY i 

001A6A 

50 

20 

F 

7 DO 


ST 

6R2,WKAR3 

CONVERT CC 


DATE" 15JUL65 17MAR66 ID F8Q5-1 

EG 124265 125643 PAGE 8A 


I 


O O O OOOOOOOOOOOOOO 
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001A6E 

IB 

22 




SR 

GR2 »GR2 

, , 



001A70 

41 

70 

0 

080 


LA 

GR7,128 

,, 



Q01A74 

8D 

20 

0 

002 


SLDL 

GR2 , 2 

,, 



G01A78 

88 

70 

2 

000 


SRL 

GR7» 0{GR2) 

, , 


6 

001A7C 

49 

70 

F 

E52 


CH 

GR7, THRT2 

IS CC 2 



Q01A80 

47 

60 

F 

A88 


BC 

NEQUAL.PT0630 

,, BRCH IF NO 



001A84 

41 

70 

0 

050 


LA 

GR7,80 

SET CC FOR ANY OR ALL 



001ASS 

58 

20 

F 

7 DO 

PT0630 

L 

GR2* WKAR3 

RESTORE GR 2 



001ABC 

44 

60 

F 

B7E 


EX 

GR6.TMA 

TEST DATA 



001A90 

44 

70 

F 

B82 


EX 

GR7, BCON 

BRCH IF ERROR RESULT 



001A94 

92 

FF 

F 

944 


MVI 

ERSW1»X*FF * 

TURN ON ERR SW 1 



001A98 

46 

20 

F 

AF8 


BCT 

GR2,PT067 

BRCH IF NOT END OF MASKS FOR 

THIS 

CC 

001A9C 

46 

40 

F 

AAO 


BCT 

GR4,*£4 

UPDATE CURRENT ADDRESS 



001AAQ 

IE 

94 




ALR 

GR9,GR4 

», 



001AA2 

IE 

94 




ALR 

GR9,GR4 

,» 



001AA4 

41 

80 

F 

27A 

PT0631 

LA 

GR8, SCPDA T£70 

DOES THIS CARD CONTAIN NEXT 

DATA 

FLD 

001AA8 

41 

70 

9 

003 


LA 

GR7*3(GR0*GR9) 

, , 



001AAC 

15 

78 




CLR 

GR7*GR8 

,, 



001AAE 

47 

20 

F 

ADA 


BC 

HIGH* PT065 

,, BRCH IF NO 



001AB2 

91 

10 

F 

004 


TM 

SNSWf X * 10 * 

PRINT CORRECT RESULTS 



001AB6 

47 

FO 

F 

AC4 


BC 

ALWAYS,PT064 

,, BRCH IF NO 



001ABA 

D2 

03 

F 

949 9 000 


MVC 

ERRX£4(4),QCGR9) 

SET FAULT NO IN MESSAGE 



001AC0 

45 

BO 

F 

B86 


BAL 

GRB,PRCRES 

GO PRINT FAULT NO. 



001AC4 

41 

90 

9 

004 

PTQ64 

LA 

GR9,4(GR0,GR9> 

UPDATE CURRENT ADDR BY 4 



001AC8 

41 

80 

F 

27 A 


LA 

GR8,SCPDAT£70 

DOES THIS CARD CONTAIN NEXT 

DATA 

FLO 

001ACC 

41 

70 

9 

009 


LA 

GR7,9(GR0,GR93 

, , 



001ADO 

15 

78 




CLR 

GR7,GR8 

,, 



001A02 

47 

20 

F 

A2A 


BC 

HIGH,PT051 

,, BRCH IF NO 



001AD6 

47 

FO 

F 

A32 


BC 

ALWAYS,PT061 

CONTINUE 



001ADA 

45 

BO 

F 

B8E 

PT065 

BAL 

GRB »RDCRD 

READ A DATA CARD 



001ADE 

91 

10 

F 

004 


TM 

SNSW,X*10* 

PRINT CORRECT RESULTS 



001AE2 

47 

FO 

F 

AFO 


BC 

ALWAYS,PT066 

,, BRCH IF NO 



001AE6 

D2 

03 

F 

949 F 234 


MVC 

ERRX£4(4),SCPDAT 

SET FAULT NO IN MESSAGE 



001AEG 

45 

BO 

F 

B86 


BAL 

GRB,PRCRES 

GO PRINT FAULT NO* 



001AFO 

41 

90 

F 

238 

PT066 

LA 

GR9» SCPDAT£4 

SET CURRENT ADDRESS 



001AF4 

47 

FO 

F 

A32 


BC 

ALWAYS,PT061 

CONTINUE 



001AF8 

46 

40 

F 

A50 

PT067 

BCT 

GR4,P T063 

BRCH IF DID NOT USE 4 MASKS 



001 AFC 

41 

@0 

F 

27A 


LA 

GR8,SCPDATC70 

DOES THIS CARD CONTAIN NEXT 

DATA 

FLD 

001BOO 

41 

70 

9 

008 


LA 

GR7,8(GR0,GR93 

*, 



001B04 

15 

78 




CLR 

GR7,GR8 

», 



001B06 

47 

CO 

F 

A40 


BC 

LOEQ,PT062 

, , BRCH IF YES 



001BOA 

45 

BO 

F 

B8E 


BAL 

GRB,RDCRD 

READ A DATA CARD 



001B0E 

41 

90 

F 

234 


LA 

GR9,SCPDAT 

SET CURRENT ADDRESS 



00 IB12 

47 

FO 

F 

A40 


BC 

ALWAYS,PT062 

CONTINUE 



001B16 

46 

20 

F 

AF8 

PT 068 

BCT 

GR2* PT067 

BRCH IF NOT LAST MASK 



001B1A 

46 

40 

F 

B1E 


BCT 

GR4,*£4 

UPDATE CURRENT ADDRESS 



001B1E 

IE 

94 




ALR 

GR9,GR4 

, , 



001B20 

IE 

94 




ALR 

GR9,GR4 

, , 



001B22 

91 

FF 

F 

944 


TM 

ERSW1,X • FF • 

SEE IF ERR SW 1 ON 



001B26 

47 

10 

F 

AA4 


BC 

ALLON,PT0631 

,, BRCH IF YES 



001B2A 

41 

80 

F 

27A 


LA 

GR8,SCPDAT£70 

DOES THIS CARD CONTAIN NEXT 

DATA 

FLD 

001B2E 

41 

70 

9 

003 


LA 

GR 7,3(GRO,GR9) 

> , 



001B32 

15 

78 




CLR 

GR7,GR8 

» , 



001B34 

47 

20 

F 

B72 


BC 

HIGH,PT06A 

,, BRCH IF NO 



001B38 

D2 

02 

F 

949 9 001 

PT069 

MVC 

ERRX£4(3),1CGR9) 

MOVE ERROR NO. TO ERROR MESSAGE 


001B3E 

D7 

07 

F 

7DO F 700 


XC 

WKAR318),WKAR3 

CONVERT ERR NO. TO BINARY .£ 

SAVE 


001B44 

D2 

02 

F 

7D5 9 001 


MVC 

WKAR3£5(3),1(GR9) 

, * 



001B4A 

F2 

22 

F 

705 F 7D5 


PACK 

WKAR3£5(33,WKAR3£5(3) 

, , 



00IB50 

4F 

80 

F 

7 DO 


CVB 

GR8,WKAR3 

, * 



00IB54 

41 

80 

8 

08C 


LA 

GR8,140(GRO,GR8) 

, , 



001B58 

50 

80 

F 

7E4 


ST 

GR8,ERNO 




001B5C 

4E 

80 

F 

7 DO 


CVD 

GR8,WKAR3 

CONVERT ERROR NO. TO PRINTABLE 


001860 

OA 

DO 




SVC 

X *DD * 

, , 



001B62 

0002 




DC 

A L 2 ( 2) 

» , 



001B64 

07D6 




DC 

AL2(WKAR3G6-SECST) 

, , 



001666 

0949 




DC 

AL2(ERRX£4-SECST) 

, , 



001B68 

OA 

DO 




SVC 

X *D0* 

ERR XXX - SEE ERNO £ ERR DEFINSHUN 

001B6A 

44 





DC 

X * 44* 

,, ERROR OUTPUT 
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* F8041 2821 SCAN/2540 READER/PUNCH 

F8051 READER TRANSLATOR FLT -ROUTINE OVERLAY 04- 


001B6B 

001B6C 

00IB6E 

001B72 

001B76 

001B7A 

00187E 

001B82 


001B86 

001B88 

001B89 

001B8A 

00IB8C 


001B8E 
001B92 
001B98 
001B9A 
001B9C 
0018AO 
001BA4 
001BA6 
001 BAS 
001 BAA 
001BAC 
001BB2 
j 001BB6 
; 0018B8 

! 001 BBC 

i 001BBE 
| 001BC2 

1 001BC6 

! 001BCA 

j OOLBCC 
I 001 BCD 
\ 001 BCE 

0018D0 
001BD4 
001B08 
001BDC 
001BDE 
001BDF 
001BEO 
001BE2 


001BE6 
001BEA 
001BF0 
001BF6 
001BFA 
001BFE 
001C02 
001C06 
001C0A 
OOICOE 


001C10 
001C14 
001C l A 


07 





DC 

X * 07 * 

,, 7 CHARACTERS 

F 945 




DC 

SIERRX) 

,V MESSAGE ADDRESS 

47 

FO 

F 

C6C 


BC 

ALWAYS,LGOUT . 

GO SEE IF WANT LOG OUT 

45 

BO 

F 

B8E 

PT06A 

BAL 

GRB,RDCRD 

READ A DATA CARD 

41 

90 

F 

234 


LA 

GR9,SCPDAT 

SET CURRENT ADDRESS 

47 

FO 

F 

B38 ‘ 


BC 

ALWAYS,PT069 

CONTINUE 

91 

00 

5 

000 

TMA 

TM 

0(GR5),X*00* 

TEST DATA 

47 

00 

F 

B16 

BCON 

BC 

NA,PT068 



« 

* ROUTINE TO PRINT FAULT NUMBERS 


OA DO 


PRCRES SVC 

X*D0* 

PRINT FAULT NO. 

80 


DC 

X* 80* 

,, NORMAL OUTPUT 

08 


DC 

X * 08 * 

,, 8 CHARACTERS 

F 945 


DC 

$(ERRX) 

,, MESSAGE ADDRESS 

07 FB 


BCR 

ALWAYS,GRB 

RETURN TO MAIN PROGRAM 


* 

* ROUTINE TO READ DATA CARDS 




92 00 

F 

234 

RDCRD 

MVI 

SCPDAT ,X * 00 9 

CLEAR READ BUFFER 

D2 4E 

F 

235 F 234 


MVC 

SCPDAT£1 ( 793 , SCPDAT 

, t 

OA DB 




SVC 

X *DB ' 

READ A DATA CARD 

0234 




DC 

AL2(SCPDAT-SECST) 

READ BUFFER ADDRESS 

41 10 

1 

001 


LA 

GR1,1 ( GR0,GR1 ) 

INCREASE CARO COUNT 

4E 10 

F 

7 DO 


CVD 

GR1,WKAR3 

CONVERT CARD NO. TO PRINTABLE 

OA DO 




SVC 

X *DD * 

* , 

0002 




DC 

AL2( 2) 

9 t 

07D6 




DC 

AL2 ( WKAR3£6—SECST) 

9 t 

07 D8 




DC 

AL2(WKAR4-SECST ) 

f f , 

D5 02 

F 

7D8 F 281 


CLC 

WKAR4 ( 3 ), SCPDAT £77 

SEE IF DATA CARO SEQUENCE OK 

47 60 

F 

BC2 


BC 

NEQUAL,RDCROX 

,, BRCH IF NO 

07 F8 




BCR 

ALWAYS,GRB 

RETURN TO MAIN PROGRAM 

58 20 

F 

E54 

RDCRD1 

L 

GR2,CDCNT 

SEE IF CORR NO. DATA CARDS READ 

15 21 




CLR 

GR2,GR1 

9 9 

47 80 

F 

BQ4 


BC 

EQUAL,RDCRD2 

tt BRCH IF YES 

41 30 

0 

08C 

RDCROX 

LA 

GR3,140(GRO,GROt 

SET UP ERROR NO. 

50 30 

F 

7E4 


ST 

GR3»ERN0 

t, 

OA DO 




SVC 

X*D0* 

ERROR 140 - MISSING DATA RECORDS OR 

44 




DC 

X • 44 * 

ff DATA RECORDS OUT OF SEQ 

07 




DC 

X * 07 * 

,, 7 CHARACTERS 

F FFO 




DC 

SCERR140) 

, , MESSAGE ADDRESS 

47 FO 

F 

C6C 


BC 

ALWAYS,LGOUT 

GO SEE IF WANT LOG OUT 

41 30 

0 

08D 

RDCRD2 

LA 

GR3,141(GRO,GRO) 

SET UP ERROR NUMBER 

50 30 

F 

7E4 


ST 

GRB,ERNO 

9 9 

OA DO 




SVC 

X * DO * 

ERROR 141 - CAN NOT ISOLATE FAILURE 

44 




DjC 

X * 44 * 

,, ERROR MESSAGE 

07 




DC 

X * 07 * 

,, 7 CHARACTERS 

F FF7 




DC 

S(ERR 141 ) 

, MESSAGE ADDRESS 

47 FO 

F 

C6C 


BC 

ALWAYS,LGOUT 

GO SEE IF WANT LOG OUT 


* ROUTINE TO PERFORM DIAGNOSTIC WRITE TO READER 

» * 


48 

CO 

F 

0E6 



DWR 

LH 

GRC »UN2ADR 

SET PUNCH I/O ADOR IN GR 12 

D2 

01 

F 

234 

1 

000 


MVC 

SCPDAT(2),0(GRI) 

LOAD WRITE DATA 

D2 

90 

F 

236 

F 

234 


MVC 

SCP0AT£2(158),SCPDAT 

* * 

41 

00 

F 

E30 




LA 

GRO,RWRCCW 

LOAD ADDR OF READER WRITE CCW 

50 

00 

F 

048 




ST 

GRO,CAW 

, , 

92 

00 

F 

14D 




MVI 

SIOSWS,X*QO* 

RESET SIO SWS -USE PUNCH ADDRESS 

45 

BO 

F 

2E8 




BAL 

GRB,SIO 

BRCH TO SIO ROUTINE 

91 

01 

F 

14D 




TM 

SI0SWS,X*01« 

SEE IF INTERVENTION REQ SW ON 

47 

10 

F 

BE6 




BC 

ALLON,DWR 

,, REPEAT WRITE IF YES 

07 

FA 






BCR 

ALWAYS,GRA 

RETURN TO MAIN PROGRAM 







* 

ROUTINE TO READ READER BUFFER 

92 

00 

F 

234 



♦ 

DRR 

MVI 

SCPDAT,X*00* 

CLEAR READ FIELD 

D2 

9E 

F 

235 

F 

234 


. MVC 

SCPDATUi 159) ,SCPDAT 

9 1 

41 

00 

F 

E38 




LA 

GRQ*RRDCCW 

LOAD AODR OF READER READ CCW 
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* F8041 2831 SCAN/2540 READER/PUNCH 

F8051 READER TRANSLATOR FLT -ROUTINE OVERLAY 04- 


001C1E 

50 

00 

F 

048 



ST 

GRO»CAW 

* * 


001C22 

92 

02 

F 

14D 



MVI 

SIQSWS,X ® 02 ® 

RESET SIO SWITCHES -USE READER 

001C26 

48 

CO 

F 

0E2 



LH 

GRC , UN1ADR 

LOAD 

READER ADDR IN .GR 12 

001C2A 

45 

BO 

F 

2E8 



BAL 

GRB,SIO 

BRCH 

TO SIO ROUTINE 

001C2E 

91 

01 

F 

14D 



TM 

SI0$WS,X*01* 

SEE 

IF INTERVENTION REQ SW ON 

001C32 

47 

10 

F 

9A4 



BC 

ALL0N,RT04 

1 1 

RETRY WRITE & READ IF YES 

001C36 

D2 

00 

2 

000 

F 

234 

MVC 

011,GR2),SCPDAT 

SAVE 

READ DATA 

001C3C 

D2 

00 

3 

000 

F 

1F7 

MVC 

G(1 f GR3 > , SENSE 

SAVE 

READ SENSE DATA 


* ROUTINE TO PERFORM READER DIAGNOSTIC CHECK READ 


001C42 

41 

00 

F 

E40 



DCRR LA 

GROtCRDCCW 

LOAD ADDR OF DIAG CK RD CCW 

001C46 

50 

00 

F 

048 



ST 

GROyCAW 

*» 

001C4A 

92 

02 

F 

140 



MVI 

SlOSWSyX®02* 

RESET SIO SWS -USE READER- 

001C4E 

92 

00 

F 

234 



MVI 

SCPDAT,X®00® 

CLEAR READ FIELD 

001C52 

D2 

9E 

F 

235 

F 

234 

MVC 

SCPDATCI(1591 *SCPDAT 

* * 

001C58 

45 

BO 

F 

2E8 



BAL 

GRBySIO 

BRCH TO SIO ROUTINE 

001C5C 

91 

01 

F 

14D 



TM 

SI0SWS,X*01* 

SEE IF INTERVENTION REQ SW ON 

001C60 

47 

10 

F 

9A4 



BC 

ALLON*RT04 

,, RETRY WRITE C READ IF YES 

001X64 

D2 

00 

4 

000 

F 

234 

MVC 

0(1*GR4),SCPDAT 

SAVE CHECK READ DATA 

001C6A 

07 

FA 





BCR 

ALWAYSyGRA 

RETURN TO MAIN PROGRAM 








* LOG 

OUT ROUTINE 


001C6C 

91 

20 

F 

004 



LGOUT TM 

SNSW* X *20 * 

SEE IF WANT LOG OUT 

001C70 

47 

80 

F 

E1C 



BC 

ALLOFF *LG0UTX 

,, BRCH IF NO 

001C74 

92 

60 

F 

234 



MVI 

SCPDAT *C•— ® 

PRINT COLUMN HEADERS 

O01C78 

02 

47 

F 

235 

F 

234 

MVC 

SCPDATC1(72)*SCPDAT 

* * 

001C7E 

45 

BO 

F 

COS 



BAL 

GR8 *LG0UT9 

*» 

001C82 

OA 

DO 





SVC 

X®00* 

, * 

001C84 

80 






DC 

X ® 80® 

9 9 

001C85 

49 






DC 

X • 49 • 

9 9 

001C86 

F F66 





DC 

$(MSG1) 

9 9 

001C88 

45 

BO 

F 

CC4 



BAL 

GRB'* LG0UT8 

9 9 

001C8C 

92 

40 

F 

234 



MVI 

SCPDAT,X®40» 

9 9 

001C90 

02 

47 

F 

235 

F 

234 

MVC 

SCPDATCK72),SCPDAT 

9 9 

001C96 

02 

OA 

F 

240 

F 

FAF 

MVC 

SCPDAT£25(11),MSG2 

9 9 

001C9C 

45 

BO 

F 

CBA 



BAL 

GRB * LG0UT7 

9 9 

001CA0 

02 

04 

F 

236 

F 

FBA 

MVC 

SCPDAT£2(5)*M$G3 

9 9 

001CA6 

02 

OA 

F 

23E 

F 

FC7 

MVC 

SCPDATC10U1) ,MSG4 

9 f 

001CAC 

02 

OC 

F 

24C 

F 

FBA 

MVC 

SCPDATC24I13)*MSG3 

9 9 

001CB2 

45 

80 

F 

CBA 



BAL 

GRB * LG0UT7 

9 9 

001CB6 

47 

FO 

F 

CEO 



BC 

ALWAYS*LGOUTM 


001CBA 

92 

C9 

F 

23C 



LG0UT7 MVI 

$CPDATC8,C * I• 

, 9 

001CBE 

02 

1C 

F 

25C 

F 

24C 

MVC 

SGPDATC40(29)*SCPDAT£24 * * 

001CC4 

92 

C9 

F 

234 



LGOUT8 MVI 

SCPDAT,C®I® 

9 9 

00ICC8 

92 

C9 

F 

24A 



MVI 

$CPDAT£22*C•I• 

9 9 

001CCC 

92 

C9 

F 

25A 



MVI 

$CPDAT£38,C * I• 

9 9 

OOICOO 

92 

C9 

F 

26A 



MVI 

SCPDAT654,C•I• 

, , 

001CD4 

92 

C9 

F 

27C 



MVI 

SCPDATC72,C•I® 

* y 

001CD8 

OA 

DO 





LG0UT9 SVC 

X ®D0® 

9 9 

001CDA 

80 






DC 

X * 80 * 

9 9 

001CDB 

49 






OC 

X *49® 

9 9 

001CDC 

F 234 





DC 

S ( SCPDAT ) 

9 9 

001CDE 

07 

FB 





BCR 

ALWAYS»GRB 

9 1 

001CEO 

41 

10 

F 

E58 



LGOUTM LA 

GR1 » INDAT 

INITIALIZE 

001C€4 

41 

20 

F 

7E8 



LA 

GR2*DRDAT 

y t 

001CE8 

41 

30 

0 

000 



LA 

GR3,Q(GRQ*GR0) 

* V 

001CEC 

41 

40 

F 

83C 



LA 

GR4,SENDAT 

* 9 

001CF0 

41 

50 

F 

890 



LA 

GR5*CKRDAT 

9 9 

001CF4 

41 

60 

0 

051 



LA 

GR6* 81 ( GROyGRO) 

9 9 

001CF8 

OA 

00 





SVC 

X * DO 9 

PRINT BLANK LINE 

OOiCFA 

80 






DC 

X * 80® 

9 9 

001CFB 

01 






DC 

X*01® 

9 9 

001CFC 

F F67 





OC 

S { MSG6 i 

9 9 

001CFE 

92 

40 

F 

234 



LGOUTA MVI 

SCPDAT * X • 40 ® 

CLEAR PRINT FIELO 

001D02 

02 

4E 

F 

235 

F 

234 

MVC 

SCPDATCK 79), SCPDAT 

* * 

001DOS 

02 

01 

F 

700 

l 

000 

MVC 

WKAR3 (2), 0 ( GR1 ) 

CONVERT WRITE DATA TO PRINTABLE 
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001 DOE 

OA DD 





SVC 

X ®DD 1 

* * 


001 DIO 

0002 





DC 

AL2(2) 

* * 


001D12 

07 DO 





DC 

AL2(WKAR3-SECST) 

*’* 


001D14 

0237 





DC . 

AL2(SCPDATC3ySECST) 

* t 


001D16 

D2 00 

F 

7D6 

F 

7D0 

MVC 

WKAR3G611),WKAR3 

CONVERT 

WRITE DATA TO HOLLARITH 

001D1C 

41 70 

F 

23E. 



LA 

GR7,SCPDATC10 

9 9 


001D20 

D2 01 

F 

25D 

F 

FD2 

MVC 

SCPDATC41(2) , MSG5 

9 9 


001D26 

D2 11 

F 

265 

F 

25D 

MVC 

$CPDATE49(18),SCPDATC41 ,, 


001D2.C 

41 80 

0 

001 



LA 

GRB * 1(GROyGRO) 

* 9 


001D30 

41 90 

F 

FD4 



LA 

GR9,HCQN 

9 9 


001D34 

43 80 

9 

000 



LGOUTB IC 

GR8 , Ot GR0,GR9) 

9 9 


001D38 

44 80 

F 

D70 



EX 

GR8,LGOUTE 

9 9 


001D3C 

47 80 

F 

X46 



BC 

ALLOFF,LGOUTC 

9 9 


001D40 

D2 XO 

7' 

000 

9 

OOD 

MVC 

0(1,GR7),13(GR9) 

9 9 


001D46 

41 BO 

B 

001 



LGOUTC LA 

GRB,1(GROyGRB) 

9 9 


001D4A 

41 80 

0 

007 



LA 

GRB,7(GROyGRO) 

9 9 


001D4E 

15 B8 





CLR 

GRB , GRB 

9 9 


001D50 

47 40 

F 

D64 



BC 

LOW,LGOUTD 

9 9 


001D54 

D2 00 

F 

7D6 

F 

7D1 

MVC 

WKAR3£6(1),WKAR3CI 

9 9 


001D5A 

41 80 

0 

OOD 



LA 

GR8,13(GROyGRO) 

9 9 


OOID5E 

15 B8 





CLR 

GRB,GR8 

9 * 


001D60 

47 80 

F 

D74 



BC 

EQUAL,LGOUTF 

t t 


001D64 

41 70 

7 

001 



LGOUTD LA 

GR7,1(GR0,GR7) 

* 1 


001D68 

41 90 

9 

001 



LA 

GR9,1 ( GRG,GR9) 

* * 


001D6C 

47 FO 

F 

D34 



BC 

ALWAYS,LGOUTB 

* * 


001D70 

91 00 

F 

7D6 



LGOUTE TM 

WKAR3C6,X*00® 

* * 


001D74 

D2 00 

F 

7 DO 

2 

000 

LGOUTF MVC 

WKAR3(1),0(GR2) 

CONVERT 

READ DATA TO PRINTABLE 

001D7A 

OA DD 





SVC 

X®DD* 

9 9 


001D7C 

0001 





DC 

AL2(1) 

9 9 


001D7E 

07 DO 





- DC 

AL2(WKAR3-SECST) 

9 9 


001D80 

024D 





DC 

AL2(SCPDATC25-SECST) 

9 9 


00ID82 

IB 88 





SR 

GR8,GR8 

CONVERT 

EXPECTED READ 6 SENSE DATA 

001D84 

18 93 





LR 

GR9,GR3 

* 9 


001D86 

5C 80 

F 

E48 



M 

GRB,NINE 

9 9 


001D8A 

5D 80 

F 

E4C 



D 

GRB,EIGHT 

9 9 


001D8E 

41 89 

F 

EFC 



LA 

GRB,0UTDAT(GR9) 

9 9 


001D92 

D2 01 

F 

7D2 

B 

000 

MVC 

WKAR3C2(2),0(GRB) 

9 9 


001D98 

58 70 

F 

7 DO 



L 

GR7,WKAR3 

9 9 


001D9C 

89 70 

8 

010 



SLL 

GR7,16(GR8) 

9 9 


o6idao 

50 70 

F 

7 DO 



. ST 

GR7,WKAR3 

9 9 


001DA4 

91 80 

F 

7D1 



TM 

WKAR3G1,X * 80® 

9 9 


001DA8 

47 80 

F 

DBO 



BC 

ALLOFF,*68 

9 9 


001DAC 

92 F8 

F 

266 



MVI 

SCPDAT650,X*F8® 

9 9 


Q01DB0 

OA DD 





SVC 

X ®DD • 

9 9 


001DB2 

0001 





DC 

AL2(1) 

9 9 


001DB4 

07 DO 





. DC 

AL2(WKAR3-SEC ST) 

9 9 


001DB6 

0255 





. DC 

AL2(SCPDAT633-SECST) 



001DB8 

D2 00 

F 

7 DO 

4 

000 

MVC 

WKAR3(1),0(GR4) 

CONVERT 

READ SENSE DATA FOR PRINT 

001DBE 

OA DD 





SVC 

X ®DD * 

9 9 


001DC0 

0001 





DC 

AL2(l) 

9 9 


001DC2 

07 DO 





DC 

AL2(WKAR3-SEC ST) 

t 9 


001DC4 

025D 





DC 

AL2($CPDAT641-$EC$T) 

9 9 


001DC6 

D2 00 

F 

7 DO 

5 

000 

MVC 

WKAR3(1),0(GR5) . 

CONVERT 

CHECK READ DATA FOR PRINT 

001DCC 

OA DD 





SVC 

X®DD ® 

9 9 


001DCE 

0001 





DC 

AL2(1) 

9 9 


001DD0 

07D0 





DC 

AL2(WKAR3-SECST) 

9 9 


001DD2 

026D 





DC 

AL2(SCPDAT657-SECST) 

9 9 


001DD4 

D5 01 

F 

25D 

F 

265 

CLC 

SCPDAT641(21,SCPDAT£49 SEE IF 

SENSE DATA OK 

001DDA 

47 80 

F 

DE2 



BC 

EQUAL,LGOUTG 

tt BRCH IF YES 

001 DDE 

92 5C 

F 

234 



MVI 

SCPDAT,C®*® 

SET ERROR FLAG 

001DE2 

95 00 

5 

000 



LGOUTG CLI 

0CGR5),X®00® 

SEE IF ANY CHECK READ DATA 

001DE6 

47 80 

F 

DEE 



BC 

EQUAL,LGOUTH 

,, BRCH 

1 IF NO 

001DEA 

92 5C 

F 

234 



MVI 

SCPDAT,C®*® 

SET ERROR FLAG 

• 001 DEE 

D5 01 

F 

24D 

F 

255 

LGOUTH CLC 

$CPDAT€25(2),SCPDAT633 

k SEE IF 

DATA READ OK 

001DF4 

47 80 

F 

DFC 



BC 

EQUAL,LGOUTK 

t, BRCH IF YES 

001DF8 

92 5C 

F 

234 



MVI 

SCPDAT,C®** 

SET ERROR FLAG 

0010FC 

OA DO 





LGOUTK SVC 

X ®D0 ® 

PRINT LOG OUT DATA 

OOIDFE 

80 





DC 

X *80* 

9 t 


DATE 

15JUL65 


17MAR66 




ID F805-1 

EC 

124265 


125643 * 
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* F8041 2821 SCAN/2540 READER/PUNCH 

F8051 READER TRANSLATOR FLT -ROUTINE OVERLAY 04- 


OOLDFF 48 

OOIEOO F 234 

001E02 41 10 1 002 

001E06 41 20 2 001 

001E0A 41 30 3 001 

001EOE 41 40 4 001 

001E12 41 50 5 001 

001E16 46 60 F CFE 

001E1A OA DA 

001E1C 91 40 F 004 

001E20 47 80 F E28 

001E24 45 80 F 63E 

001E28 47 FO F 964 


DC X * 48 * 

DC S(SCPDAT) 

LA GR1,2(GRO »GR1> 

LA GR2,1(GR0,GR2) 

LA GR3,1(GR0»GR3) 

LA GR4t1(GR0,GR4} 

LA GR5,1(GR0,GR5) 

BCT GR6, LGOUTA 

SVC X *DA• 

LGOUTX TM $NSW,X*40' 

BC ALLOFF *LGOUTY 

BAL GR8* SCPROO 

LGOUTY BC ALWAYS,RTOX 


» » 

»» 

UPDATE ADDRESSES FOR NEXT LINE 


t, 

BRCH IF NOT END OF LOG OUT 
WAIT FOR ACTION 
SEE IF WANT UTILITY ROUTINE 
,, BRCH IF NO 
BRCH TO UTILITY ROUTINE 
ROUTINE EXIT 


* CCW,S USED BY READER XLATE.FLT 


001E30 25 001234 2000 OOAO RWRCCW CCW X«25*,SCPDAT,X*20*,160 DI AG WRITE TO RD BUFF -SLI ON- 

001E38 C2 001234 2000 0050 RRDCCW CCW X»C2•,SCPDAT,X*20«,80 READ READER BUFFER -SLI ON- 

001E40 C6 001234 2000 0050 CRDCCW CCW X*C6»,SCPDAT,X*20* t 80 DIAG CHECK READ CCW -SLI ON- 

* CONSTANTS -WORD BOUNDARY- * 

«»«****»«**••«*****«**»*«**#**«**«*«***»**»**«»««#*«»»•*«*«•»«««»****»• 


001E48 

001E48 

00000009 

NINE 

CNOP 

DC 

0,4 

XL4 * 09 

001E4C 

00000008 

EIGHT 

DC 

XL4 *08 

001E50 

0000 


DC 

XL2 *00 

001E52 

0020 

THRT2 

DC 

XL2'20 

00IE54 

000000D4 

CDCNT 

DC 

XL4 *D4 


*********************************************************************** 




« 

CONSTANTS -NO BOUNDARY- 


« 



*********************************************************************** 

001E58 

1E000F000720033001 

INDAT 

DC 

X•1EOOOF00072003300138003COO1EOOOF 9 



001E61 

38003C001E000F 






001E68 

38001C000E00032001 


DC 

X * 38001COOOE000320013000382C032401* 



001E71 

3000382C032401 






00IE78 

220121012021201120 


DC 

X*22012101202120112009200520032403* 



001E81 

09200520032403 






001E 8 8 

3403140114031C030C 


DC 

X•3403140114031C030C010A010C030A03 * 



001E91 

010A010C030A03 






00IE98 

3C0300002CO 12AO128 


DC 

X * 3C0300002C012A012803240222022000 * 



001EA1 

03240222022000 






001EA8 

34013003I0000C001A 


DC 

X* 3401300310000C001A0130003CO10202 * 



001EB1 

0130003CO10202 





l 

001EB8 

2C022A002900282028 


DC 

X * 2C022A00290028202810280828042802 * 


) 

001EC1 

10280828042802 





] 

001EC8 

28012AO22902340234 


DC 

X * 28012A02290234023400302 030101C02* 



001ED1 

00302030101C02 






001ED8 

1A022800200118000A 


DC 

X*1A022800200118000A021C0100140018* 



1 001EEI 

02ICO100140018 






i 001EE8 

002400300028020402 


OC 

X*00240030002802040208021002200300 9 



i 001EFI 

08021002200300 






j 001EF8 

01082C03 


DC 

X•01082C03 * 



i 001EFC 

A3FIFDFEFF7FBDFE7F 

OUTDAT 

DC 

X*A3F1FDFEFF7FBDFE7F7050B8FEFF7FBC* 



5 001F05 

7050B8 FEFF7 FBC 






! 001FOC 

000202018100A06038 


DC 

X*000202018100A0603820121008864402* 



001F15 

20121008864402 






001F1C 

1110A4543020104844 


DC 

X*1110A4543020104844824928A0512C18* 



j 001F 2 5 

824928A0512C16 






! 001F2C 

0C262351C4F4804120 


DC 

X•0C262351C4F4804120D08854321D1089 * 



■ 001F35 

D0885432101089 






| 001F3C 

4522D20914A25540AA 


DC 

X • 4522D20914A25540AA60325A0E070BDF * 



! 001F45 

60325AOE070BDF 






| 001F4C 

EFF7FAFDBEFF6FBFDB 


DC 

X *EFF7FAFDBEFF6FBFDBE7F780* 



! 001F55 

E7F780 






001F58 

D9C5C1C440E703C1E3 

TITLE 

DC 

C"READ XLATE FLT* 



001F61 

C540C6D3E3 






i 001F66 

C9404040C4C9C1C740 

MSG1 

DC 

C*I DIAG WRITE D« 



i 001F6F 

1 

E6O9C9E3C540C4 





l 

1 

1 DATE 

15JUL65 17MAR66 




ID 

F805-1 

j EC 

124265 125643 




PAGE 

11 1 
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| F8051 READER TRANSLATOR FIT -ROUTINE OVERLAY 04- F8051 READER TRANSLATOR FLT -ROUTINE OVERLAY 04- 


001FF7 C5D9D940F1F4F1 ERR141 DC C *ERR 141 • CAN NOT ISOLATE FAILURE POST ASSEMBLY DATA. 

END . • 


' REFERENCES TO DEFINED SYMBOLS. 


1 

0 * 

NA 

1B82 








1 

1048 

CAW 

1BFA, 

1C IE, 

1C46 






1 

1040 

CSW 









4 

1C10 

DRR 

19A8 








4 

1BE6 

DWR 

19A4, 

1A0C ,. 

1C0A 






1 

0 

GRO 

19E6* 

19EA, 

19EA, 

19F4, 

19F8, 

19FC , 

1A00 





1A08, 

1A1E, 

1A IE, 

1A38, 

1A3C, 

1A40,, 

1A48 





1A4C, 

1A4C, 

1A56, 

1A5E , 

1A62, 

1A66, 

1AA8 





1AC4, 

1ACC, 

1B00, 

1B2E , 

IB 54, 

1B9C , 

1BC2 





1BC2, 

1BD4, 

1BD4, 

1BF6, 

1BFA , 

1C1 A, 

1C1E 





1C42, 

1C46, 

1CE8, 

1CE8, 

1CF4, 

LCF4, 

1D2C 





1D2C* 

1D34, 

1D46, 

1D4A, 

1D4A, 

1D5A, 

1D5A 





1064, 

1D68, 

1E02, 

1E06, 

1E0A , 

1E0E , 

1E12 


1 

1 

GR1 

1988, 

19F4, 

19F4, 

1A08, 

1A08, 

1A1E, 

1B9C 





1B9C, 

1E02 

1BA0, 

1BBC, 

1BEA, 

1CE0, 

1D08, 

1E02 


1 

2 

GR2 

198C, 

19B2, 

19F 8, 

19F8, 

1A36, 

1A36, 

1A38 





1A6A, 

1A6E, 

1A6E, 

1A74, 

1A78 , 

1A88 , 

1A98 

■■ ■ ■ iii 




1B16, 

1E06 

1BB8, 

1BBC, 

1C36, 

1CE4, 

1D74, 

1E06 

• • ■ ■ ■ j'.. 1 .• ' ' •:P 

1 

3 

GR3 

1990, 

19B8, 

19FC, 

19FC , 

1A40, 

1A44, 

1BC2 


• 



1BC6, 

1E0A 

1BD4, 

1BD8, 

1C3C , 

1CE8, 

1D84, 

1E0A 


1 

4 

GR4 

1994, 

1A00, 

1A00, 

1A4C, 

1A9C, 

1AA0, 

1AA2 

■ ■ V 




1AF8, 

1B1A, 

1B1E, 

1B20, 

1C64, 

1CEC , 

1DB8 





1E0E, 

1E0E 







1 

5 

GR5 

1A50, 

1A5A, 

1A5A, 

1B7E, 

1CF0, 

1DC6, 

1DE2 





1E12, 

1E12 







1 

6 

GR6 

1998, 

1998, 

19C8, 

19E6, . 

19E6, 

19EE, 

1A62 , 





1A8C, 

1CF4, 

1E16 






1 

7 

GR7 

1A70, 

1A78, 

IA7C, 

1A84, 

1A90, 

1AA8, 

i AAC 





1ACC, 

1 ADO, 

1B00, 

1B04, 

1B2E, 

1B32, 

1DIC 





1D40, 

1D64, 

1064, 

1098, 

ID9C, 

1DA0 



1 

8 

GR8 

1984, 

19CA, 

19CE, 

19CE, 

1900, 

19D4 , 

1A54 





1A54, 

1A56, 

1A5A, 

1AA4, 

1AAC, 

1AC8 , 

1 ADO 





1AFC, 

1B04, 

1B2A, 

1B32 , 

1B50, 

1B54, 

1B54 





1B58, 

1B5C, 

1D34, 

1D38, 

1D4A, 

1D4E, 

1D5A 





1D5E, 

1D82, 

1082, 

1D86, 

1D8A, 

1D9C , 

1E24 


‘ 1 

9 

GR9 

19C8, 

19DC, 

19DC, 

19E0, 

1A2E, 

1A38 , 

1A3C 





1A3C, 

1A40, 

1A48, 

1A48, 

1A56, 

1A5E, 

1A5E 


1 



1A62, 

1A66, 

1A66, 

1AA0, 

1AA2 , 

1AA8, 

1 ABA 





1AC4, 

1AC4, 

1ACC , 

1AF0, 

1B00, 

1B0E , 

1B1E 





1B20, 

1B2E, 

1B38, 

1844, 

1B76, 

1030, 

1034 





1D40, 

1D68, 

1068, 

ID84, 

1D8E 




1 

A 

GRA 

19A4, 

19A8, 

1A0C, 

1C0E , 

1C6A 




1 

B 

GRB 

19C4, 

19D4, 

19D8, 

19EA, 

19EE, 

1A2A, 

1ACO 





1ADA, 

1AEC, 

1B 0 A , 

1B72, 

188C, 

1BB6, 

1C02 





1C2A, 

1C58, 

1C7E, 

1C88, 

1C9C, 

1CB2, 

1CDE 





1D2C, 

1046, 

1D46, 

ID4E , 

1D5E, 

1D8E , 

1D92 


1 

C 

GRC 

1BE6, 

1C26 







1 

D 

GRD 








. - *5 

1 • 

E 

GRE 









1 

F 

GRF 








, y : V. .; ^ ,/§. 

1 

4 

LOW 

1D50 








1 

12E8 

SIO 

1C02, 

1C2A, 

1C58 





y \ ‘ - *’ ‘ 

4 

1B7E 

•tma‘ 

1A8C 







: ' * ... '<■' jw-‘, - y’ : y ' • ‘ .. ■ ■ , ; . ^4 

4 

1B82 

BOON 

1A90 







.' ' • ■ y-'v y, , fl ';y 

i i 

2 

BUSY 








; *'• V/V.-'' ,/ • 

1 ■; -4 ■ 

1C42 

DCRR 








. 1 ' ' ■', . ■;!' -$5 

! 4 

17E4 

ERNO 

1B58, 

1BC6, 

1BD8 





■ ' . • '''■ , , ■' , ' . /• _ . , ( 

8 

1945 

ERRX 

1ABA, 

1AE6, 

1B38, 

IB 66, 

1B6C, 

1B8A 




DATE 

I5JUL65 

17MAR66 

i 

ID F805-1 ( DA TE 

15JUL65 

17MAR66 

ID 

F805-1 

EC 

124265 

125643 

PAGE 12 * i E c 
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* F8041 2821 SCAN/2540 READER/PUNCH 

F8051 READER TRANSLATOR FLT -ROUTINE OVERLAY 04- 



1 

16 EC 

EXIT 




1 

48 

HC AW 




13 

1FD4 

HCON 

1D30 



1 

40 

HCSW 




1 

2 

HIGH 

1AAE» 

1AD2, 

1B34 

1 

78 

HI ON 




1 

C 

LOEQ 

1B06 



16 

1F66 

MSG1 

1C86, 

1FD4 


11 

1FAF 

MSG2 

1C96 



13 

1FBA 

MSG3 

ICAO, 

1CAC 


11 

1FC7 

MSG4 

1CA6 



2 

1FD2 

MSGS 

1D20 



16 

1F67 

MSG6 

1CFC 



4 

1E48 

NINE 

19CA, 

1D86 


4 

1A2E 

PT 06 




4 

1954 

RTOO 




4 

196E 

RT01 

1958, 

1960 


4 

197C 

RT02 

1972 



4 

1988 

RT03 

1980 



4 

19A4 

RT04 

1A04, 

1C32, 

1C60 

4 

19C4 

RT 05 

19BC 



4 

1 AOS 

RT06 

19F0 



6 

1964 

RTOX 

1E28 



6 

1A10 

RT 10 




4 

1A1E 

RT 20 

1A16 



1 

1004 

SNSW . 

196E, 

197C, 

1A82, 

1 

1231 

UAPU 




1 

122D 

UARD 




1 

3 

ZERO 




1 

1 

ALLOW 

1B26, 

1C0A, 

1C32, 

I ' 

5 

ANYON 




1 

8 

AVAIL 




4 

1E54 

CDCNT 

1BB8 



1 

11FA 

CSWAG 




1 

4 

CSWST 




14 

17E8 

DRDAT 

198C, 

1CE4 


4 

1E4C 

EIGHT 

19D0, 

1D8A 


1 

8 

EQUAL 

1958, 

1960, 

19F0, 




1DF4 



1 

1944 

ERSW1 

1A32, 

1A94, 

1B22 

1 

1714 

EX IT 1 

196A 



1 

171C 

EXIT2 

1FED 



1 

2 

GZERO 




16 

1E58 

INDAT 

1988, 

1CE0 


4 

1C6C 

LGOUT 

1A1A, 

1B6E* 

1BD0, 

1 

1202 

MESS1 




1 

4 

MIXED 




1 

7 

NZERO 




4 

1 A2A 

PT051 

1AD2 



4 

1A32 

PT 061 

1AD6, 

1AF4 


4 

1A40 

PT062 

1B06, 

1B12 


4 

1A50 

PT063 

1AF8 



4 

1AC4 

PT064 

1AB6 



4 

1 ADA 

PT065 

1AAE 



4 

1AF0 

PT066 

1AE2 



4 

1AF8 

PT067 

1A98, 

1B16 


4 

1B16 

PT068 

1B82 ' 



6 

1B38 

PT069 

1B7A 



4 

1B72 

PT06A 

1834 



4 

1B8E 

RDCRD 

1A2A, 

1ADA, 

1B0A, 

1 

1950 

RTN04 

1015 



3 

1 FED 

SCR AD 

1964 



1 

1000 

SECST 

1000, 

1000, 

1000, 




1000, 

1000, 

1000, 




1000, 

1000, 

1000, 




1000, 

1000, 

1000, 




1000, 

1018, 

1068, 




1BA8, 

1BAA, 

1D12, 


1ADE f 1C6C, 1E1X 

1C 60 


IBBEv ID60, 1DDA» 1DE6 


1BE2 


1BT2 


1000, 

1000, 

1000, 

1000 

1000, 

1000, 

1000, 

1000 

1000, 

1000, 

1000, 

1000 

1000, 

1000, 

1000, 

1000 

1A28, 

1B64, 

1B66, 

189A 

1D14, 

1D7E, 

1D80, 

ID 84 



DATE 

EC 


15JUL65 17MAR66 

124265 125643 


ID F805-1 
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F8051 READER TRANSLATOR FLT -ROUTINE OVERLAY 04- 


1D36, 1DC2, 1DC4, 1DD0, 1DD2 

1 11F7 SENSE 1C3C 

2 1E52 THRT2 1A7C 

14 1F58 TITLE 197A 

4 17E0 TSTOR 19AC, 19AC, 1982, 19C0, 19C4, 19D8, 19E0 

1 10EO UN IT 1 

1 10E4 UNIT2 

8 1700 WKAR3 1A6A, 1A88, 1B3E, 1B3E, 1B44, 1B4A, 1B4A 

1B50, 1B5C, 1B64, 1BA0, 1BA8, 1D08, 1D12 

1016, 1D16, 1D54, 1D54, 1070, 1D74, 1D7E 

1D92, 1098, 1DA0, 1DA4, 1DB4, 1DB8, 1DC2 

1DC6, IDDO 

8 17D8 WKAR4 1BAA, 1BAC 

1 8 ALLOFF 1972, 1980, 19BC, 1C70, 1D3C, 1DA8, 1E20 

1 F ALWAYS 196A* 1A04, 1A1A, 1AB6, 1AD6, 1AE2 # 1AF4 

1B12, 1B6E, 1B7A, 1B8C, 18B6, 1BD0# 1BE2 

1C0E, 1C6A, 1CB6, 1CDE, 1D6C, 1E28 

1 114C CAWKEY 

14 1890 CKRDAT 1994, 1CF0 

16 18E4 COMDAT 199A, 199E, 199E, 19DC, 1A10, 1A50 

8 1E40 CRDCCW 1C42 

1 112C CSWSAV 

7 1FF0 ERR140 1BCE 

7 1FF7 ERR141 18E0 

1 16E6 EXITBY 

4 1C8A LG0UT7 1C9C* 1CB2 

4 1CC4 LGOUTS 1C88 

2 1CD8 LG0UT9 1C7E 

4 1CFE LGOUTA 1E16 

4 1D34 LGOUTB 1D6C 

4 1D46 LGOUTC 1D3C 

4 . 1064 LGOUTD 1D50 
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F7AAHAAJLA0UA6.AAAAO 129B06.HAJ.KAGAJ.AAJ 

988QZYYY8Q 9Q9 YYYY 8 9 ZY9 8YQYY 98Y 

999 9999 9 9999 9 9 Z99 99 

Go AAJAA. DA6.2AAAAAOl 31F4KAJJGJU.05AKBAAA 

Q 98Y8Q 9Y9 99YYYY 988Q8Y9Y8 G9Q89YYY 

Z 9999 9 9999 99999 99 99 999 

DDFB/BGJJACQBWBGAAAC /,PHV0/D0i34GDVA/BDo 

8Y99999Y8999999999Y9 9 899989 9Y8Y998 

99 99 9 9 99 ' 9 

CDJA/BGAAAQI37GG7 J7. HAABGJ.KAAJ.A7ADAAAJ 

9Y899999YY 8Q9Y9 ZYY989 8YYY 98899Y8Y 

99 99 9Z 9 9 9 9 99 9 99 

CJ. QBKAAJG*AADAJAAO* D6.*JAA0139FG8A7.HAE 

99 998YYYY 9898Y8QG 99 YYY 8Q9Q9 ZY8 

9 999 9999 999 9Z 9 9 

0140FGDAU«8A5AAKALJA AAA0141G7BAD.HAAAAKA 

9YZ98 999QY8Y8YY YYY 98808 ZY9QQ8Y 

9 9 . 999 999 999 9999 9Z9 

0143GG3B7.HAHACGAJ.K AAJG.AADAJAA0.D6.A®A 

8Q&99 ZY99 8Q9 8 YYYY 9898Y8Q& 99 Y Y 

9Z9 99 9 999 9999 9 9 

7ADAJAA.DA6.A.AAAAOl 4SH0BDU.A.J.AKBKALJJ 

8898Y8Q 9Y9 Y YYYY 9G898 0 9 Y998Y8Y9 

9 9999 9 9 9999 9 9 9 9 99 

4BASJXD2A0147DCKAQ8A JLJOI46DCJD/8JAABAQB 

8899Y8999 9 8Y99Y Y8Y 8 Y99989Y9Y99 

99 99 9 9 999 9 9 9 9 9 

C7.AAJo LAAfeB* AADGACA DBATBSJDC »2DAAAA0150 

9 099 8Q089 989999Y 989999Y88 99Q0YY 

Z 99Z9 9 9 999 Z999 

APHVDFBAA01.51 AO/BAAA AAAO 152F7DHAA7.HA0A8 

Y899999YY 9G99YYY YYY 9889YY9 ZY Y9 

99 99 999 999 9 9 9 

D7GH6ADJ0A0155E7HBBA DJHA0QJAAAAAA0156BAD 

98899Y9Y9Y 98999Y 9Y99G9YYYYYYY 909 

99 9 9 9 9999999 Z 

0159EGWBAHD.OAA/•AAA AAA0160D3AAAJAABD016 

9Y99Y98 ZYY9 YYY YYY 999QYYYQ99 - 

999 9 999 999 99999 
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AGJQB6B3AJAA/A. DA6.A AAAAAO117..180510121 

99Y9989 8Y8Q8Q 9Y9 Y • YYYYY 
9 9 999999 9 9 99999 

21D7QAAAEJHB0122E7GA AAEJHA.180510122 

989Q999Y99 988Q 999Y99 

99 9 999 9 

AAAAAA0125BGBHJ* KALA G.AAJAA.D..180510123 

99YYYY 8 Z99 8Y8Q Q 98Y8Q 9 

9999 9 9 99 Z 9999 

A012767NBJJGJAA05AAH 0.AA0128...180510124 

Y 98898Y9Y9QG9Q99 8 YY 

9 99 99 9 9 9 9 99 

AAO.DBHAAAA0130BCBHJ .KALA.180 510125 

80S 9Z9YYYY 8 Z99 8Y8Q 

99 9999 9 9 99 

A0132G3AJAAJ.LADUJ.A 6.AA0133...180510126 

Y 998Y909 8QQ9Y 9 9 YY 

9 99 9 99Z 9 99 

JAAQBWBWJAA0135D78JA AX.7.0136..180510127 

89Y99999YYY 989YY Y9 9 

9 9 999 9 99 

AA0.D6.A.AA013BGG6AG J7•HA.180510128 

80S 99 Y YY 8Q8Y9 Y9 ZY 

99 9 99 9Z9 9 

JGJ.KAAJ*ATADAJAA.DA 6.A.AAAA...180510129 

Y89 8YYY 98898Y8Q 9Y 9 Y YYYY 

99 9 99 9 9999 9 9 9999 

AJDJAAG142FGFAU.GH5A AKALJAAAA..180510130 

YYZYYY 9YZY8 899Q Y8Y8YYYYY 

99 999 9999 99 999999 

A0144FG4A7.HAHBGJ.KA AJ.A.......180510131 

Y 8Q899 ZY9989 8Y YY 9 

9 929 9 9 99 « 

J0146D7AJVJNAX.07.6A 6BAD.......180510132 

Y 888Y9Y8Y9 9 8Q 89Y9 

9 99 9 99 99 99 

WBGAWJCAA/.VA1H0149L GAA/B/AX...180510133 

99999Y 9Y9 8Y99 9 Y8Y998Y9 

9 « 9 99 9 

GD4A/BGJJA0AB5AQBWBD MHGAAA/....180510134 

8Y99999Y89 Y99Q9999Y 89999Y9 

99 99 9 9 9 9 

A.AAAA0153D7EJBADJFJ ‘ 0154.......180510135 

9 YYYY 988Y9Y9Y8Y 
9999 999 999 

JBAAAAA0158F75AAAGJ7 .06A7HAAAA.180510136 

Y9YYYYY 9889YY9Y9 &9Y89YYYY 

9 9999 99 9 9 9 9999 

1E7UJHAAAAJOLAAAAAAA 0162. 180510137 

989YZY9QYYG8QYYYYYY 
9 9 999 99999999 
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BAAAAJAAAA0163DCJ.U. A..A0164C4QJDAHBAA01 

9Y9QYYYYYY 998 Q 9 989Y9Y99YY 

9 9999999 9 9 9 9 . 99 

D7BADABAHB0168ECAD6B BA7A0M.AAAAAA0169BA0 

98999YRYR9 9 Y989 8989G9 YYYYYY 9Y9 

9 9999 999999 9 

0171F7GBDAFDHB0GHGAA AAA0172AD0ABA/A6BAAD 

98899Q9999 89 9Y YYY 8Y9Q8Y8Y89YY9 

99 99 999 99 99 9 9 99 

0GH8AAAAA0175G7DJDAF DBADHAGABAAA0176F7BA 


89RYYYYY 

98RY9Q9 

999Q998QRYYY 

98RY 

9 9999 

9 9 9 

Z 99 99 

9 

AADBATBLAAPHAAAAAAO1 

78A0BAAAAAAA0182F7JA 

YY989999YY99YYYYYY 

9G8YYYYYYY 

9889 

99 9 9 

999999 

9 999999 

9 

0HBFHAAAA018567FHDAB 

. ABDHAG AEAAAO 1.86F7HB 

99R9YYYY 

98R99Q9 

Y9Q998QRQYY 

• 98R9 

9999 

9 9 

9 Z 99 999 

9 

OGHEAAAAAO188GDLABA/ 

A6BAADTBPHAA0189F7EA 

89RQYYYY 

9Y9Y8Y8 

Y89YY99999YY 

98RQ 

9 99999 

r 9 9 9 

9 99 99 

9 9 


CA. J.LJLA05AV.3AAA01 91AGVDAHX.7.AAABBADG 

9Q 9 8Y8Q 898 9QYY 8Y99Y99 9 YQ999899 

9 9999 9 9 999 99 9 9Z 

GA.J.5AAH0AJAAAAAA01 93H4BDAA5AKA3LAMHGA/ 

8Q 9 8989£ZYYYYYYY 98999Q9Q8Y 8Q89998 

99 9 9999999 9 9 99 999 9 

BDPH/BD.U.AWBBHGAWJO M.FBAAAAO196H7NBJJGJ 

8Y89998 8 Q9999999Y 8 99YYYY. 98898Y9Y 

999 9 9 Z 9 9 9999 99 99 9 

DUA6.6HAA0198G4KAJJG JU.D5AKBVAAA0199H3AJ 

Y9Q9 99YY 988Q8Y9 Y8 Q9Q899QYY 998Y 

99 99 99999 99 Z 99 999 99 

7J.AJ.AAJDAABA.D6.AE AAAAAAA0201DD7DAHX.A 

89 YY 98YQ8Q8Q 99 Y8 YYYYYYY 9Y99Y99 Q 

9 99 99Z9999 9 999999 99 Z 

i FCBA6BAD7AAPHEJAAAAO 206A4SDBAD.U•3AAFAAH 

9 8989Y989Y998YYYYY 88999Y8 8 9Q8999 

99999 99999 99 999 

35AFAAHNB0KBAAAAAA02 11H4KBBAD.U.G5AFAKA0 

9Q899989C89YYYYYY 98899Y8 8 Q9Q898Q8 

9 99 999999 99 9919 999 

D.QBHUAAA021304FAVJ7 .KB0214C7E8VJD.X*CHA 

Q 9Z999YY 98899Y9 89 88899Y8 9 ZY 

\ Z 99 9 9 9 99 99 

! ' 

| CA.A. J.AA03A6AWAAA02 16D7V«. V J D-X . A A . J-OBI 

; 9 Q 9 9Y 999Y9QYY 888 9Y8 9 YQ 9 998 

1 9 999 999 99 99 9 

1 

j 0HAPHVDAA0218G73AVJD .X.AQ8TAAJAA0219A4SJ 

1 C9Y8999YY 98999Y8 9 Q999QZYYY 889Y 

| 9 99 9 99 1 9 999 99 9 

j . 


1 

! DATE 15JUL65 17MAR66 

| EC 124265 125643 
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65D7P.DAHAGA0166C40A DAGHAA0167•180510138 

989 9Y998Q 989Y 9Y89YY 

9 99. 9 9 99 

ALAAAAA0170G7GADAFDH ADGAGHGBAA.180510139 

Y8YYYYY 98 99Q999 9Q8Q8989YY 

9999 9 9 1999 99 

BATBLAAPHAAAAAA0173F 7C.DAFDBA..180510140 

89999YY99YYYYYY 9 8R 9Q9999 

9 9 999999 9 9 

DAFDBAOHBC* AAAA0177 A DNJBA/A6B..180510141 

9Q9999 99R YYYY 8 Y9Y8Y8Y89 

9 9999 9 9 99 9 9 

DAB.ABOEJEAAAAA0184F 7EADAB.AB*.180510142 

9Q9 Y9 8YRQYYYY 9 8RQ9Q9 Y9 

9 9 99 99999 999 9 

DAB.AB0BAEAAAAA0187F 7GDDAB.AB..180510143 

9Q9 Y9 99RQYYYY 9 8R99Q9 Y9 

9 9 99999 9 99 

DAB*AB0HBFHAAAA0190C 7BAAAGJ7...180510144 

9Q9 Y9C99R9YYYY . 8 8ZQYY9Y9 

9 9 . 9999 9 9 99 9 

A0VAAAAAAA0192A76AAA 7.HA..180510145 

9C99YYYYYY 889YYY 9 ZY 

999999 99 9 

D0194H4B.AAHALJGLAAH A.EBO195...180510146 

9 988 YYZY8YY8Q99 8 89 

99 9 99999 

AAG5AAH0.VH0197G7 AAH AAJLA......180510147 

9QY9Q998 99 988QZ YYY8Q 

99 9 9 999 9999 

AAJ.LA3UJ.A6.6H0200E G6HAHD.HA..180510148 

9Q9 8Q 9Y 99 99 8 Y99Y98 ZY 

9 99 . 9 9 9 9 9 

A0203F76AJJ/AGJOT AA. AAAA0205...180510149 

9 988Q8Y8Y9Y 9Q8 YYYY 

999999 9 9 9999 


KBOSJAAAAAA0210£70.B AD.AA.180510150 

8969YYYYYYY 888 9 Y8 9Q 

9 9999999 999 99 

.0212C06.HAJ.KAGAJ.A AJAA.180510151 

8 9 ZY9 8YQYY 9 8Y8Q 

9 9 Z99 9999 


0BLJLAD8.TA3AAAO215C 7AJAAGJHA..180510152 

998Y8QQ8 9Q99YY . 8 8ZYYY9YZY 

999919 9 99 9 9 99 9 

JGLATA3ABA0217GCGA/B JABD......*180510153 

YQ8Q9Q99ZQ 9 9999 8999 

9Z99 99 9 

JJGJU.3AA6AAHSD07AAA AAAA0222.».180510154 

8Y9Y8 9Q8Q9999C89YY YYYY 

99 99 999 9 99 9999 
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D7 AJVJ/AX* 07.6 A6 BAD? BASJXD2A022800KA0BAJ 

888Y9Y8Y9 9 8QS9Y98 899Y8999 9C8Y99YY 

99 9 99 999 99 9 99 9 99 

HO C.B A6 B A D7 B AS J G B7 HO 232G7AADAB.D.0ABCA/* 

9&8 8Y89Y98899Y8989 ,989Y9Q9 8 SY99Q9 

9999 99 99 9 9 999 9 

06BADAJBA0SJBHAJCB02 34EDLJU.5AKAOAHAAAAA 

889Y9SY89Y9YZ98Y89 9Y8Y8 9Q8Y699YYYYY 

99 9 999 99 9 9999 99 99999 

BADALAAAAA0237CDPHBA /A6BAADBATBLADQDNJM. 

9Q9Y8YYYYY 8Y998Y 8Y89YY989999YQ999Y9 

Z 9999 99 9 9 9 99 9 Z 9 

APHAAAAAAQ243C06* HAJ .KAGAJ*AAJAAO.DBHUAA 

Y99YYYYYY? 0 9 ZY9 8YQYY 98Y8Q 9Z999Y 

9 999999 9 9 199 9999 9 

0256E7FAV J7*»KB0BAAAA AAAQ257DDAAAHX.7D026 

98899Y9 89C8QYYY YYY 9YQ9Y99 99 

9 9 9 9999 999 9Z 9 

0EAAAAAAA0263ED8BAHX '•AAAJAAAAAAA0264H7NB 

C8YYYYYYY 9Y99Y99 „ Q9Y9QYYYYYY 9889 

999999 99 Z 9 9999999 99 

0287H4K68AD.U® 05AFAK ■ AO.02690DAA/8D.U*DHA 

98899Y8 8 Q9Q898 Q8 9YQQ998 8 QZY 

99 9 9 Z 9 9 99 9Z9 9 9 Z 

AC® F85A/DA2DAAAAAA02 . 71C0JA/BGAAA0272GG2D 


Y8 

999989Y998YYYYY 

9&899999YY 

8Y99 

99 

9 9 

9 9999 

9 99 

99 

AC« 

, T AAAAA0273H7CHAAD 

.X.G7.A.5A8J0275H7CH 

08 

898YYY 

98Z9YY8 

9 Q9 9 9Q9Y 

98Z9 

Z9 

9 9 99 

9 9 9 

Z 9 9 

9 


DHAAAL. AA0276AG2D/B/ AX.Q7.AA6BADCADBATBS 
89YQ99 YY QY99998 Y9 £9 Q989899Y989999 
99 99 99 9 Z9 99 


DA.8JAAAA027980GB/BQ B6BAGAWJADBAOSJC.AAA 

Q9 9Y9YYY 8C89999 989Y999YY989C9Y8 YYY 

Z 9 99 99 9 9 99 9 99 999 

FCXA/BJAX.OABAAQBWBD GAWJ AA/•AVAJDAAAAG28 

8 9Q99899 &Y9Q999998 999Y9Y9 Y8YY9YYYY 

999 9 Z 9 9 99 9 9999 

0284E0HAQBKAGAAQAAAA AAA0285DDGAGJD.QBCKA 

9G9Y998Y99Y99YYY YYY 8Q899Y8 9998Y 

9 9 999 999 9Z9 99 9 

3AJLAADAJDAA.DHH6.AG A.JAAAA0287D7XHVJHAA 

YY8Q898YQ8Q 9Z99 OZ Y YYYYY 88999YZYY 

9999 99Z99 Z 99999 99 9 9 

ED.J7.HAJ.4KAAJ.AADD AJAA.D6.AA.AAAAAAQ29 

8Q Y9 ZY9 88YYY 989Q 8Y80 99 YY YYYYYY 

9Z 9 99 99 Z 9999 99 999999 

OAJAA8ATB0SJ.DBD6« AC •GAAAAA0291E0HAQBKAG 

8Y8Q8999 9Y 9899 Y8 89YYYY 9&9Y998Y9 

99999 9 99 9 9999 9 
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LJ0229HG/.AHX.ABGAAW BAAE.0231-.180510155 

8Y 9Y9 Y99 Y98Q99 99YZ 

99 ■ 99 9 9Z 

AA0233A72A/AX.7.GAAL AUJ6A......1805IG156 

YY Q8998Y9 9 Q9Q8 Q9Y8Q 

99 99 9 1 99 9 999 

A0235ECAD6BBA7AAM.AA AAAA0236.*.180510157 

Y 9 Y9898989Y9 YY YYYY 

9 9 9 9 9 9 99 9999 

AA0238ADM® BA/A6BAADB ATBLA......180510158 

YY 8Y9 8Y8Y89YY98 9999Y 

99 99 999 99 9 

A0254DDKAQ8AJ6®0255D GKAQBAJ6.••180510159 

Y 9Y8Y99YY9 9 Y8Y99YY9 

9 99 99 99 99 

0EG6HAHD.HA7J®AJ®AAJ DAABA. 06*. .180510160 

8Y99Y98 IY89 YY 98Y ' Q8Q8Q 99 
99 99 9 99 99 Z9999 

<J JG JAAD5AAH0. VH0265D QTB/A6B6A. .160*510161 

8Y9Y9QY9099S 99 9 998Y899Y 

99 9 99 9 9' 9 9 

AAA J6BCBHGAADBA4BAS J BDP.H. ..... .180510162 

9QYY89 9999Y98Q8899Y 9989 

9999 9 9999 9 9 

/B/AX.07.AA6BADCADBA TBSJ.......180510163 

998Y9 89 0989899Y989 999Y 

9 Z 9 9 9 9 

A AD. X. G7. A® 5A8 J0275G CGA/BJABD..180510164 

YY8 9 Q9 9 9Q9Y 9 99998999 

9 9 1 9 9 9 

J7C. TAAAAA0277G7CAAA X.7 ....... .•180 510165 

Y88 898YQ0 989QYY 9 9 

999 9 9 19 9 99 

A0280GCGA/BJA8DAHAAA L.AA0281...180510166 

Y 9 99998999Y9YQ9 9 YY 

9 9 9 9 99 

2C7AJAAGJHACA.A.J.AA D3A6AWAAA.»130510167 

88ZYYY9YZY 9 0 9 9Y Q999Y9QYY 

99 99 9 9 Z 999 

6BADBA38ASJC.7.0286F DA.7.HAKA..180510168 

89Y98Q9899Y8 8 8 QY 9 ZY8Y 

9 9 99 9 99 9 9 Z9 9 

BCA.J.QBTAGAA3A6AAJ0 289........180510169 

99Q 9 999QQ9Y999YZY 
9 9Z 9 

0QG7./AX.HAAAAJ.QBKA DAJ6B.AAD..180510170 

9Q8 8Y9 ZYYQ99 998Y YYY89 9Y9 

Z9 9 9Z 9 9999 9 

A0QAAAAAAAO292DDGAG J Q. QB. ..... .180 5-10171 

9S99YYYYYY 8Q899Y 8 99 

999999 9Z9 9 9 
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A4A-AAX.U.G7.HA8J6A0 

B.AAAAAA0348EDBHU.AA 

KAAPHAAAAAA0349A72A/ 

AX.7-. 


888 YY9 8 Q9 ZY9Y8QG 

8 YYYYYY 

98998 9Q 

8YY89YYYYYY 

Q8998 

Y9 9 


99 9 9 Z 999 

9 999999 

9 9 9 

9 99 999999 

99 9 



GAALAUJ6AD6BADAJ BAGS 

J BHAJCB0350F4AJHAAAK 

AAUJAAAAAA0351FDLJU. 

5AKA-• 


Q9Q8Q9Y8Q889Y98Y89Y9 

YZ98Y89 

98YYZY9Q8 

YQ9Y8QYYYY 

9Y8Y8 

9Q8Y 


Z 999 99999 9 999 9 

9 9 

999 99 

Z 9999999 

9999 

99 



j AAHB*AAAA0353F0VA6BG AADABAVDAAAA0354E0WA JA6BADABAAAAAAA0355E 0FHGH6BAD..180510191 

j Q998 YYYY: 9C99899 9Y9Y8999YYYY 9G89 8989Y9Y89YYYYYY 9 Z98989Y9 

| l 9 9999 9 9 99 9999 9 9 9 9 99 999999 999 

ABAAAAAAA0356E0EABA6 BADABAAAAAAA0357FDAB HAAJ6BAADBAAAAA0358F 0DJD.6BAD..180510192 

j Y89YYYYYY 9 ZQ998 9Y9Y89YYYYYY 9Q89 ZYYY89YY989YYYY 9 ZY8 89Y9 

99 999999 99 9 99 999999 19 999 99 9 9999 99 9 9 

0BABAAAAA0359G73AAA/ AX.C7.A.J-5AG8JLJLA6 AD6BADBAAA0360GDLABA /A6B.180510193 

j C8Q89YYYY 889Q998 Y9 909 9QY9Y8Y808 0889Y9ZQYY 9Y9Y8Y 8Y89 

! 999 9999 99 9 9 9 99 999999 999 9 999 99 99 

DADTBPHAA0362GQC* 8A6 BADABASJGBAA0363G7AA DAB.D.OABCA/*AAQ365B AFDDAAAAA*-180510194 

8Y99999YY ' 9G8 8Y8 9Y9Q899Y89YY 989Y 909 8 Y99Q9 YY 9 0999QYYYY 

99 99 9 9 9 9 29 99 99 9 9 9 9 9 99 Z 99999 

i 0369H7AAHAAJLA0UA6.6 ' HUJ0372GGVH/AX.7.GAA A. 5A6AA6BAHADBADNBSJ AJAA0373-..180510195 

i 988QZYYY8QG9Q9 9 98Y 8Q998Y9 9 Y9Q Q 9Q8QY8999Y989Q899Y 8 YYY 

| 999 9999 9 99 9Z 9 9 9 9 99999 9 9 Z9 9 999 

C4A® AA7® AA0379H73AVJ D-X-4QBTAAJYD0384DCL AKAMHUA0386H7AAHAAJL ACUA6-6HUJ-180510196 

j cj89 YY9 YY 98999Y ; 8 9 8999QZY99 998 Q8Y899Q 988QZYYY8 Q 9Q9 998Y 

! 99 99 99 9999 9 99 99 999 999 9 9 99 

j 0388FG3A/AX-7-3A-5AL ' JLA06A6BA0BA0SJAJAAA ' A0390C7AJVJ/AX.07.6A ■ 6BAD.180510197 

! 8Q9Y8Y9 9 9Q 9Q8 Y8QC8Q89Y989 9Y8YYYY Y 888Y9Y8Y9 9 80 89Y9 

| 9Z 9 9 99 999 999 99 9 9999 9 99 9 99 99 • 9 9 ' 

! ABASJXDAA0392G4B® AAH ALJOLAAHA.AA0396E4AJ HAAAKA0UJAAAAAA0398A 3AJAAJ-LA--180510198 

| Q899Y89YY 988 YYZ Y8YG8Q998 YY 98YY ZY9Q8YS9YYYYYYY 8 98Y909 8Q 

j Z9 99 99 99 9 99 99 99 999 99 9999999 9 99 9 99 

QUJ-A6-6H02AAAAAAA03 99M7-XH/AX-7-GAA5ALAM H06A6BGAA0DAJBASJPHG BHM.AJ2A...180510199 

| 9Y 99 99G99YYYYYY 98898Y9 9 Q9Q9Q8Q8 9G8Q8999Y9Y8Y899Y898 Z98 8Y99 

9 999999 99 9 29 9999 999 9 9999 99 9 99 

I 0400JDC0/AX-U-D7-HAA . ALJ0LA6A6BAHCB-AD8AS J0AJAAAAAA0402A3AJAA J.LA-------180510200 

j 9Q898Y9 8 Q9 ZY9 Q8Y 8Q8Q8999 8 Y9899 YG8YYYYYYY 898Y90 9 8Q 

I 1991 999 99999 999 9 9999999 9 99 9 99 

j OUJ-A6-6HA2AAAAAAA04 03EDVA/AX-U-D7-5A6A6 BGADBAKASJOAJAAAAAAO 406.180510201 

! 9Y 99 99Y99YYYYYY 8Q9Q8Y9 8 Q9 9Q8Q8 98Y9898Q9YG8YYYYYYY 

j 9 9 999999 9Z 99 9 Z 9999 99 9 99 9 9999999 

EGWBAHD-OAO/* AAAAAAO 407BAB.DAAAAA0412D3Q AGJU.5AGQBKAMHBHAGAH AUA/D0414..180510202 

9Y99Y98 2.YG9 YYYYYY 9Q9 9QYYYY 8 9 99Y8 9Q8998Y8999Y999 Y8Q89 

999 999999 Z 99999 9 99 99 9 9 9 999 

E3JAD-U* 5ACQBKAWBMHO BHGAUAQAOK-AAAAAA041 5A7BAVJ/AX-7U-5AFA5A C68ADBAKA-.180510203 

8 9Y8 8 9Q9998Y9989& 99998Q99S9 YYYYYY . . Q88Q9Y8Y9 88 9Q8989 989Y9898Q 

999999 99 999999 99 9 99 99 9 9 9 9 9 99 

; 4T8KBSJC-04X8ASAHAHX -7-CHAAA70AJAADAAAAA A0419AGVDAHX.7.AAABB ADGA..180510204 

899899Y8 8Y89Y99 9 ZYQ999YYY89YYYYY Y 8Y99Y99 9 YQ999 8999 

9 9 99 999 9 Z 999 99999 9 99 9 9Z 

AVAAAAAAA0420DDDAAHD .WB0421J43.JJ/AA.3J. 5ALJLA05A6A6BADGBATB SJBA-180510205 

Y99YYYYYY 9YZYY98 99 989 8Y8YQ 99 9Q8Y8Q 898Q89Y988999 9YZQ 

9 999999 999 9 999 9 99999 9 999 9 99 99 
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07.AA6BAQCADSATBSJ4C -TAAAAA0434EDQB/BGJK AA/AAAAAAA0435F75AAA GJ7.-.180510207 
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889999Y8 98899Y9 89Y8QYYYYYY 988Q 8Y8Y9YY9QYYYYYY 9 889YY9Y9 
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* F8041 

2821 SCAN/2540 READER/PUNCH 




F806D 

PUNCH TRANSLATOR; FLT 

-ROUTINE OVERLAY 

05- 


0017D8 

0000000000000000 

WKAR4 

DC 

XL8'00 1 




* 

VARIABLES - WORD 80UNDARY 

• ' j 

0017E0 



CNOP 

0,4 


0017E0 

00000000 

ERNO 

DC 

XL4 1 00' 

i 



******************************** 

*************************************** 



* 

VARIABLES - NO BOUNDARY 

* { 



************ 

*********************************************************** 

0017E4 

000102030405060708 

INDAT 

DC 

X 1 000102030405060708090A1011191A20 1 | 

0017ED 

090A1011191A20 




■ | 

0017F4 

2122292A3040414248 


DC 

X•2122292A3040414248494A5051585960• 

0017FD 

494A5051585960 





001804 

616263686A6B6E7072 


DC 

X*616263686A6B6E7072787A8081828889' ! 

00180D 

787A8081828889 




i 

001814 

8B91A1A9CQC1C2C8CA 


DC 

X•8B91A1A9C0C1C2C8CADGD2D8DAE0E1E2* 1 

0018ID 

D0D2D8DAE0E1E2 




1 

001824 

E3E8E9EAEBF0FA 


DC 

X 1 E3E8E9EAEBF0FA 8 


00182B 


WRSNS 

DS 

CL71 


001872 


WRCKRD 

DS 

CL71 


0018B9 


ROAT 

DS 

CL 71 

J 

001900 


RDSNS 

DS 

CL71 


001947 


RDCKRD 

DS 

CL71 

* | 

00198E 


COMDAT 

DS 

CL90 

i 

0019E8 

00 

ERSW1 

DC 

X'OO* 

j 

0019E9 

C5D9D940E7E7E7E7E7 

ERRX 

DC 

C'ERR XXXXX* 




*********************************************************************** i 



* 

ROUTINE 05 PREFIX 

* j 



*********************************************************************** 

0019F2 



CNOP 

0,4 

! 

0019F2 

07 00 

BCR 

0,0 


0019F4 

05 

RTN05 

DC 

XL1 * 05 ' 

ROUTINE NUMBER § 

0019F5 

00 


DC 

XL1*00' 

FLAGS | 

0019F6 

FFFF 


DC 

X * FFFF ' 

LAST ROUTINE 1 

1 

0019F8 

95 85 F 79C 

RT 00 

CLI 

SCHNUM , X * 85 * 

SEE IF SHOULD RUN THIS ROUTINE 1 

0019FC 

47 80 F A12 


BC 

EQUAL,RT01 

,, BRCH IF YES 

001A00 

95 00 F 79C 


CLI 

SCHNUM,X»00« 

SEE IF SHOULD RUN THIS ROUTINE 

001A04 

47 80 F A12 


BC 

EQUAL,RT01 

,, BRCH IF YES 

001A08 

D2 02 F 065 F E70 

RT OX 

MVC 

SVRPSWC5C 3) » SCRAD 

SET UP RETURN SVC PSW ADDR 

001A0E 

47 FO F 714 


BC 

ALWAYS,EXIT1 

BYPASS DATA CARDS ROUTINE EXIT 

001A12 

91 02 F 004 

RT01 

TM 

SNSW,X * 02 * 

SEE IF WANT TITLE PRINTOUT 

001A16 

47 80 F A20 


BC 

ALLOFF,RTQ2 

,, BRCH IF NO 

001A1A 

OA DO 


SVC 

X ' DO * 

PRINT TITLE 

001A1C 

80 


DC 

X* 80« 

,, NORMAL OUTPUT 

001A1D 

OF 


DC 

X * OF 1 

,, 15 CHARACTERS 

001A1E 

F E73 


DC 

S(TITLE) 

,, ADDRESS OF TITLE 

001A20 

91 40 F 004 

RT02 

TM 

SNSW,X * 40 1 

SEE IF WANT UTILITY ROUTINE 

001A24 

47 80 F A2C 


BC 

ALLOFF,RT03 

,, BRCH IF NO 

001A28 

45 80 F 63E 


BAL 

GR8,SCPROO 

BRCH TO UTILITY ROUTINE 



* 

DATA 

COLLECTION ROUTINE 

. 

001A2C 

41 10 F 7E4 

RT03 

LA 

GR1,INDAT 

INITIALIZE 

001A30 

41 20 F 8B9 


LA 

GR2,RDAT 

,, i 

001A34 

41 30 F 98E 


LA 

GR3,COMDAT 


001A38 

IB 66 


SR 

GR 6,GR 6 


001 A3A 

92 00 F 98E 


MVI 

COMDAT , X ' 00* 

,, | 

001 A3E 

D2 58 F 98F F 98E 


MVC 

C0MDAT8H893,COMDAT 


001A44 

45 AO F D18 

RT04 

BAL 

GRA,DWR 

GO WRITE PUNCH BUFFER 

001A48 

D2 00 1 08E F 234 


MVC 

142(1,GR1),SCPDAT 

SAVE WRITE CHECK READ DATA 

001A4E 

45 AO F D4A 


BAL 

GRA,PRD 

GO READ PUNCH BUFFER 

001A52 

D2 00 2 08E F 234 


MVC 

142(1,GR2),SCPDAT 

SAVE READ CHECK READ DATA 

001A58 

D7 07 F 7DO F 7D0 


XC 

WKAR3(8),WKAR3 

COMBINE INV CD CODE READ DATA 

001A5E 

D7 07 F 7D8 F 7D8 


xc 

WKAR4(83,WKAR4 

* > 

001A64 

D2 00 F 7D8 2 000 


MVC 

WKAR4( 1) ,0(GR2) 

, » 

001A6A 

58 BO F 7D8 


L 

GRB,WKAR4 

t, 

001A6E 

IB 00 


SR 

GRO,GRO 

• 1 

DATE' 

17MAR66 




ID F806-0 ) 

EC' 

125643 
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* F8041 

2821 SCAN/2540 READER/PUNCH 




F8060 

PUNCH TRANSLATOR FLT 

-ROUTINE OVERLAY 

05- 


001A70 

88 

BO 

0 

001 



SRL 

GRB,1(GR0) 


001A74 

50 

BO 

F 

7 DO 



ST 

GRBiWKAR3 

, , 

001A78 

91 

08 

2 

047 



TM 

71(GR2) , X * 08 * 

, , 

001A7C 

47 

80 

F 

A84 



BC 

ALLOFF, RT05 

r , 

001A80 

96 

80 

F 

7 DO 



01 

WKAR3, X * 80 * 

, , 

001A84 

58 

BO 

F 

7 DO 


RT05 

L 

GRB , WKAR3 

, , 

001A88 

18 

96 





LR 

GR9,GR6 

9 , 

001A8A 

5C 

80 

F 

E10 



M 

GR8*NINE 


001A8E 

IB 

88 





SR 

GR8,GR8 

, , 

001A90 

5D 

80 

F 

E14 



D 

GR8,EIGHT 

, , 

001A94 

88 

BO 

8 

000 



SRL 

GRB , 0(GR8) 

» 9 

001A98 

50 

BO 

F 

7 DO 



ST 

GRB ,WKAR3 


001A9C 

41 

99 

F 

98E 



LA 

GR9,COMDAT{GR9) 

9 9 

OOIAAO 

D6 

03 

9 

000 

F 7 DO 


OC 

0(4»GR9)f WKAR3 

9 9 

001AA6 

41 

BO 

F 

82B 



LA 

GRB , WRSNS 

SEE IF END OF DATA COLLECTION 

001AAA 

41 

10 

1 

001 



LA 

GR1,1(GR0*GR1) 

t, 

001AAE 

15 

IB 





CLR 

GR1,GRB 

t 9 

001ABO 

47 

80 

F 

ACO 



BC 

EQUAL »RT10 

,, BRCH IF YES 

001AB4 

41 

20 

2 

001 



LA 

GR2,1(GR0,GR2) 

9 9 

001AB8 

41 

60 

6 

001 



LA 

GR6,1(GR0*GR6) 

9 9 

001ABC 

47 

FO 

F 

A44 



BC 

ALWAYS,RT04 

CONTINUE COLLECTING DATA 







* 

ERROR 

DEFINITION ROUTINE 


001ACO 

D5 

4F 

F 

98E 

F E20 

RT10 

CLC 

COMDAT(80)tOUTDAT 

SEE IF GOT ANY ERRORS 

001AC6 

47 

60 

F 

AD4 



BC 

NEQUAL*RT20 

,, BRCH IF YES 

001ACA 

OA 

DO 





SVC 

X * DO • 

PRINT NO ERRORS DETECTED 

001ACC 

80 






DC 

X' 80 • 

,, NORMAL OUTPUT 

001ACD 

10 






DC 

X*10* 

,, 16 CHARACTERS 

001ACE 

F 

E82 





DC 

S(NERDET) 

,, ADDRESS OF MESSAGE 

001ADO 

47 

FO 

F 

C4E 



BC 

ALWAYS,LGOUT 

GO SEE IF WANT LOG OUT 

001AD4 

41 

10 

0 

01E 


RT20 

LA 

GR1,30(GR0,GR0) 

INITIALIZE DATA RECORD COUNT 

001AD8 

45 

BO 

F 

DAO 


PT 051 

BAL 

GRB,RDCRD 

GO READ A DATA CARD 

001ADC 

41 

90 

F 

234 


PT 06 

LA 

GR9,SCPDAT 

SET UP CURRENT DATA ADDRESS 

001AEO 

92 

00 

F 

9E8 


PT 061 

MVI 

ERSW1,X•00• 

RESET ERR SW 1 

001AE4 

IB 

22 





SR 

GR2,GR2 

SET COUNT OF MASKS IN GR2 

001AE6 

43 

20 

9 

000 



IC 

GR2,0{GRO,GR9) 

, , 

001AEA 

41 

90 

9 

001 



LA 

GR9,1(GR0,GR9) 

UPDATE CURRENT ADDR BY 1 

001AEE 

43 

30 

9 

000 


PT062 

IC 

GR3,0(GR0,GR95 

SET CC IN GR 3 

001AF2 

89 

30 

0 

018 



SLL 

GR3,24 


001AF6 

41 

90 

9 

001 



LA, 

GR9,1(GR0,GR9) 

UPDATE CURRENT ADDR BY 1 

001AFA 

41 

40 

0 

004 



LA 

GR4,4(GR0,GR0) 

SET 4 IN GR 4 

001AFE 

41 

50 

F 

98E 


PT063 

LA 

GR5,COMDAT 

SET TEST DATA ADDR 

001B02 

IB 

88 





SR 

GR8,GR8 

SET UP TEST ADDRESS 

001B04 

43 

80 

9 

000 



IC 

GR8,0(GR0,GR9) 

9 , 

001B08 

41 

58 

5 

000 



LA 

GR5*0(GR8,GR5) 

, , 

001BOC 

41 

90 

9 

001 



LA 

GR9,1(GR0,GR9> 

UPDATE CURRENT ADDR BY 1 

001810 

43 

60 

9 

000 



IC 

GR6,0(GRO,GR9) 

SET UP MASK 

001B14 

41 

90 

9 

001 



LA 

GR9,1(GR0»GR9) 

UPDATE CURRENT ADDR BY 1 

001B18 

50 

20 

F 

7 DO 



ST 

GR2,WKAR3 

CONVERT CC 

00181C 

IB 

22 





SR 

GR2,GR2 

9 » 

001B1E 

41 

70 

0 

080 



LA 

GR7,128 

9 , 

001B22 

8D 

20 

0 

002 



SLDL 

GR2,2 

, 9 

001B26 

88 

70 

2 

000 



SRL 

GR7,0(GR2) 

9 , 

001B2A 

49 

70 

F 

E1E 



CH 

GR7,THRT2 

IS CC 2 

001B2E 

47 

60 

F 

B36 



BC 

NEQUAL » PT0630 

,, BRCH IF NO 

001B32 

41 

70 

0 

050 



LA. 

GR7,80 

SET CC FOR ANY OR ALL 

001B36 

58 

20 

F 

7 DO 


PT0630 

L 

GR2,WKAR3 

RESTORE GR 2 

001B3A 

44 

60 

F 

C3E 



EX 

GR6,TMA 

TEST DATA 

001B3E 

44 

70 

F 

C42 



EX 

GR7,BC0N 

BRCH IF ERROR RESULT 

001B42 

92 

FF 

F 

9E8 



MVI 

ERSW1,X*FF * 

TURN ON ERR SW 1 

001B46 

46 

20 

F 

BA6 



BCT 

GR2,PT067 

BRCH IF NOT END OF MASKS FOR THIS CC 

001B4A 

46 

40 

F 

B4E 



BCT 

GR4,*84 

UPDATE CURRENT ADDR 

00184E 

IE 

94 





ALR 

GR9,GR4 

9 9 

001B50 

IE 

94 





ALR 

GR9,GR4 

9 9 

001B52 

41 

80 

F 

27A 


PT0631 

LA 

GR8,SCPDAT870 

DOES THIS CARD CONTAIN NEXT DATA FLD 

001B56 

41 

70 

9 

003 



LA 

GR7,3(GR0,GR9) 

9 , 

001B5A 

15 

78 





CLR 

GR7,GR8 

1 9 9 
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i 


001B5C 

47 

20 

F 

B88 




BC 

HIGH,PT065 

,, BRCH IF NO 

001B60 

91 

10 

F 

004 




TM 

SNSW,X'10• 

PRINT CORRECT RESULTS j 

001B64 

47 

FO 

F 

B72 




BC 

ALWAYS,PT064 

,, BRCH IF NO | 

001B68 

D2 

03 

F 

9ED 

9 

000 


MVC 

ERRX84{4),0(GR9) 

SET FAULT NO. IN MESSAGE 

001B6E 

45 

BO 

F 

C46 




BAL 

GRB,PRCRES 

GO PRINT FAULT NO. 

001B72 

41 

90 

9 

004 



PT064 

LA 

GR9,4(GR0,GR9i 

UPDATE CURRENT ADDR BY 4 

001B76 

41 

80 

F 

27 A 




LA 

GR8,SCPDAT870 

DOES THIS CARD CONTAIN NEXT DATA FLD 

001B7A 

41 

70 

9 

009 




LA 

GR7,9(GR0,GR9) 

9 9 

001B7E 

15 

78 






CLR 

GR7,GR8 

99 

001B80 

47 

20 

F 

AD8 




BC 

HIGH,PT051 

99 BRCH IF NO 

001B84 

47 

FO 

F 

AEO 




BC 

ALWAYS,PT061 

CONTINUE i 

001B88 

45 

BO 

F 

DAO 



PT 065 

BAL 

GRB,RDCRD 

READ A DATA CARD j 

001B8C 

91 

10 

F 

004 




TM 

SNSW,X * 10• 

PRINT CORRECT RESULTS 1 

001B90 

47 

FO 

F 

B9E 




BC 

ALWAYS,PT066 

,, BRCH IF NO 

001B94 

D2 

03 

F 

9ED 

F 

234 


MVC 

ERRX84(4),SCPDAT 

SET FAULT NO. IN MESSAGE 

001B9A 

45 

BO 

F 

C46 




BAL 

GRB,PRCRES 

GO PRINT FAULT NO. 

001B9E 

41 

90 

F 

238 



PT066 

LA 

GR9,SCPDAT84 

SET CURRENT ADDRESS 

001BA2 

47 

FO 

F 

AEO 




BC 

ALWAYS,PT061 

CONTINUE 1 

001BA6 

46 

40 

F 

AFE 



PT067 

BCT 

GR4,PT063 

BRCH IF DID NOT USE 4 MASKS 

001 BAA 

41 

80 

F 

27A 




LA 

GR8,SCPDAT870 

DOES THIS CARD CONTAIN NEXT DATA FLD j 

001BAE 

41 

70 

9 

008 




LA 

GR7,8(GR0,GR9) 

9 9 | 

001BB2 

15 

78 






CLR 

GR7*GR8 

9 9 \ 

001BB4 

47 

CO 

F 

AEE 




BC 

LOEQ,PT062 

,, BRCH IF YES 

001BB8 

45 

BO 

F 

DAO 




BAL 

GRB,RDCRD 

READ A DATA CARD 

001 BBC 

41 

90 

F 

234 




LA 

GR9,SCPDAT 

SET CURRENT ADDRESS ; 

001BC0 

47 

FO 

F 

AEE 




BC 

ALWAYS,PT062 

CONTINUE 

001BC4 

46 

20 

F 

BA6 



PT068 

BCT 

GR2,P T067 

BRCH IF NOT LAST MASK 

001BC8 

46 

40 

F 

BCC 




BCT 

GR4,*84 

UPDATE CURRENT ADDRESS i 

001BCC 

11 

94 






ALR 

GR9,GR4 

9 , 

001 BCE 

IE 

94 






ALR 

GR9,GR4 

9 9 

001BD0 

91 

FF 

F 

9E8 




TM 

ERSW1»X 1 FF• 

SEE IF ERR SW 1 ON 

001BD4 

47 

10 

F 

B52 




BC 

ALLON,PT0631 

,, BRCH IF YES 

001BD8 

41 

80 

F 

27 A 




LA 

GR8,SCPDAT870 

DOES THIS CARD CONTAIN NEXT DATA FLD 

001BDC 

41 

70 

9 

003 




LA 

GR7,3(GR0,GR9) 

9 9 

001BEO 

15 

78 






CLR 

GR7,GR8 

* 9 j 

001BE2 

47 

20 

F 

C32 




BC 

HIGH, PT06A 

,, BRCH IF NO f 

i)01 BE6 

D2 

02 

F 

9ED 

9 

001 

PT 069 

MVC 

ERRX£4(3),1(GR9) 

MOVE ERROR NO. TO ERROR MESSAGE 

*001BEC 

D7 

07 

F 

7 DO 

F 

7D0 


XC 

WKAR3(8),WKAR3 

CONVERT ERROR NO. TO BINARY SAVE 

001BF2 

D2 

02 

F 

7D5 

9 

001 


MVC 

WKAR385(3),1(GR9) 

9 9 i 

001BF8 

F2 

22 

F 

7D5 

F 

7D5 


PACK 

WKAR385(3),WKAR385(3) 

9 9 ' J" 

001BFE 

4F 

80 

F 

7 DO 




CVB 

GR8,WKAR3 

9 T j 

001C02 

41 

80 

8 

28 A 




LA 

GR8,650(GR0,GR8) 

9 , | 

001C06 

50 

80 

F 

7E0 




ST 

GR8,ERNO 

9 9 f 

001C0A 

4E 

80 

F 

7D0 




CVD 

GR8,WKAR3 

CONVERT ERROR NO. TO PRINTABLE 

001C0E 

OA 

DD 






SVC 

X 1 DD 1 

9 9 

ooicio 

0003 






DC 

AL 2(3 ) 

9 9 

001C12 

07D5 






DC 

AL2(WKAR385-SECST) 

9 9 

001C14 

07D8 






DC 

AL2(WKAR4-SECST) 

9 9 

001C16 

D2 

03 

F 

9ED 

F 

»7D9 


MVC 

ERRX84(4),WKAR481 

SET ERROR NO. IN ERROR MESSAGE 

001C1C 

95 

FO 

F 

9ED 




CLI 

ERRX84,X * FO * 

SEE IF FIRST CHAR IS 0 

001C20 

47 

60 

F 

C28 




BC 

NEQUAL,PT06X 

,, BRCH IF NO 

001C24 

92 

40 

F 

9ED 




MVI 

ERRX84,X'40« 

BLANK OUT 0 

001C28 

OA 

DO 





PT06X 

SVC 

X * DO * 

ERR XXX - SEE ERNO PGM DESCRIPTION 1 

001C2A 

44 







DC 

X • 44 ' 

,, ERROR OUTPUT | 

001C2B 

08 







DC 

X ' 08 ' 

,, 8 CHARACTERS 

001C2C 

F 9E9 






DC 

S(ERRX) 

,, MESSAGE ADDRESS i 

001C2E 

47 

FO 

F 

C4E 




BC! 

ALWAYS,LGOUT 

GO SEE IF WANT LOG OUT 1 

001C32 

45 

BO 

F 

DAO 



PT06A 

BAL 

GRB,RDCRD 

READ A DATA CARD 

001C36 

41 

90 

F 

234 




LA 

GR9,SCPDAT 

SET CURRENT ADDRESS j 

001C3A 

47 

FO 

F 

BE6 




BC 

ALWAYS,PT069 

CONTINUE j 

001C3E 

91 

00 

5 

000 



TMA 

TM 

0(GR5),X* 00* 

TEST DATA 

001C42 

47 

00 

F 

BC4 



BCON 

BC 

NA,PT068 

|. 








* 

ROUTINE TO PRINT FAULT NUMBERS [ 

001C46 

OA 

DO 





PRCRES 

SVC 

X ' DO' 

t 

PRINT FAULT NO. 

001C48 

80 







DCl 

X • 80 • 

99 NORMAL OUTPUT 

001C49 

08 







DC 

X • 08 • 

,, 8 CHARACTERS 

DATE 

17MAR66 
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001C4A 

F 9E9 





DC 

S(ERRX) 

,, MESSAGE ADDRESS 

001C4C 

07 FB 





BCR 

ALWAYS,GRB 

RETURN TO MAIN PROGRAM 







* LOG 

OUT ROUTINE 


00IC4E 

91 20 

F 

004 



LGOUT TM 

SNSW,X 1 20 1 

SEE IF WANT LOG OUT 

001C52 

47 80 

F 

D08 



BC 

ALLOFF,LGOUTX 

,, BRCH IF NO 

001C56 

41 10 

F 

7E4 



LA 

GR1»INDAT 

INITIALIZE LOG OUT ROUTINE 

001C5A 

41 20 

F 

8B9 



LA 

GR2,RDAT 

y, 

00IC5E 

92 40 

F 

234 



LG0UT1 MVI 

SCPDAT,X * 40• 

CLEAR PRINT FIELD 

00IC62 

D2 7C 

F 

235 

F 

234 

MVC 

SCPDATCK 125) ,SCPDAT 

T 1 

001C68 

D2 00 

F 

7 DO 

1 

000 

MVC 

WKAR3(1),0{GR1) 

SET UP TO PRINT WRITE DATA 

001C6E 

OA DD 





SVC 

X' DD * 

, t 

001C70 

0001 





DC 

AL2(1) 

» » 

001C72 

07 DO 





DC 

AL2(WKAR3—SECST) 

y , 

001C74 

0237 





DQ 

AL2(SCPDAT£3-SECST) 

y1 

001C76 

D2 00 

F 

700 

1 

047 

MVC 

WKAR3U) ,7l(GRl) 

SET UP TO PRINT WRITE SENSE DATA 

001C7C 

OA DD 





SVC 

X * DD 1 

v » 

001C7E 

0001 





DQ 

AL2(1) 

t , 

001C80 

07D0 





DC 

AL2{WKAR3—SEC ST) 

t , 

001C82 

023A 





DC 

AL2(SCPDATC6-SECST) 


001C84 

D2 00 

F 

7 DO 

1 

08E 

MVC 

WKAR3(1},142(GR1) 

SET UP TO PRINT WRITE CK READ DATA 

001C8A 

OA DD 





SVC 

X , DD* 

» y 

001C8C 

0001 





DC 

AL2(1) 

» f 

001C8E 

07 DO 





DC 

AL2(WKAR3-SECST) 

yt 

001C90 

023D 





DC 

AL2(SCPDAT89-SECST) 

t, 

001C92 

D2 00 

F 

7 DO 

2 

000 

MVC 

WKAR3U) »0(GR2) 

SET UP TO PRINT READ DATA 

001C98 

OA DD 





SVC 

X 1 DD * 

t y 

001C9A 

0001 





DC 

AL2(1) 

11 

001C9C 

07 DO 





DC 

AL2(WKAR3—SEC ST) 

» t 

001C9E 

0240 





DC 

AL2(SCPDATCI2-SECST) 

t, 

OOICAO 

D2 00 

F 

7 DO 

2 

047 

MVC 

WKAR3(1)»71(GR2) 

SET UP TO PRINT READ SENSE DATA 

001CA6 

OA DD 





SVC 

X * DD *. 

* t 

001CA8 

0001 





DC 

AL2(1) 

» » 

001CAA 

07D0 





DC 

AL2(WKAR3-SECST) 

* t 

001CAC 

0243 





DC 

AL2(SCPDATCI5-SECST) 

» t 

001CAE 

D2 00 

F 

7 DO 

2 

08E 

MVC 

WKAR3(13,142(GR2) 

SET UP TO PRINT READ CK RD DATA 

00ICB4 

OA DD 





SVC 

X • DD * 

* y 

001CB6 

0001 





DC 

AL2(1) 

y y 

001CB8 

07 DO 





DC 

AL2(WKAR3-SECST) 

y , 

001CBA 

0246 





DC 

AL2(SCPDATCI8-SECST) 

y y 

001CBC 

92 5C 

F 

235 



MVI 

SCPDATC1, C ' * * 

SET ERROR FLAG 

001CC0 

D5 01 

F 

237 

F 

240 

CLC 

SCPDATC3(2),SCPDATC12 

SEE IF READ DATA OK 

001CC6 

47 60 

F 

CEE 



BC 

NEQUAL,LGOUTA 

,, BRCH IF NO 

001CCA 

95 00 

1 

047 


s\ 

CLI 

71{GR1),X * 00• 

SEE IF ANY WRITE SENSE DATA 

001CCE 

47 60 

F 

CEE 



BC 

NEQUAL,LGOUTA 

,, BRCH IF YES 

001CD2 

95 00 

1 

08E 



CL,I 

142{GR1),X'00* 

SEE IF ANY WRITE CK READ DATA 

00ICD6 

47 60 

F 

CEE 



BQ 

NEQUAL,LGOUTA 

,, BRCH IF YES 

OOICDA 

95 00 

2 

047 



CLI 

71(GR2),X * 00* 

SEE IF ANY READ SENSE DATA 

OOICDE 

47 60 

F 

CEE ' 



BC 

NEQUAL,LGOUTA 

,, BRCH IF YES 

001CE2 

95 00 

2 

08E 



CLI 

142(GR2),X'00» 

SEE IF ANY READ CK READ DATA 

00ICE6 

47 60 

F 

CEE 



BQ; 

NEQUAL,LGOUTA 

,, BRCH IF YES 

001CEA 

92 40 

F 

235 



MV'I 

SCPDAT&l,X'40 * 

REMOVE ERROR FLAG 

OOICEE 

OA DO 





LGOUTA SVC 

X' DO' 

PRINT LOG OUT DATA 

OOICFO 

80 





DC; 

X * 80 1 

y y 

001CF1 

14 





DC, 

X * 14 * 

y y 

001CF2 

F 234 





DQ; 

S(SCPDAT) 

y y 

001CF4 

41 90 

F 

82B 



LA'; 

GR9,WRSNS 

SEE IF END OF LOG OUT 

001CF8 

41 10 

1 

001 



LA 

GR1,1(GR0,GR1) 

y y 

001CFG 

41 20 

2 

001 



LA 

GR2,1(GR0,GR2) 

• y , 

001D00 

15 19 





CL;R 

GR1,GR9 

y y 

001D02 

47 60 

F 

C5E 



BQ ’ 

NEQUAL,LG0UT1 

,, BRCH IF NO A 

001D06 

OA DA 





SVC 

X * DA * 

HALT - WAIT FOR ACTION 

001D08 

91 40 

F 

004 


LGOUTX TM, 

SNSW,X*40' 

SEE IF WANT UTILITY ROUTINE 

001DOC 

47 80 

F 

D14 



BC 

ALLOFF,LGOUTY 

,, BRCH IF NO 

001D10 

45 80 

F 

63E 



BAL 

GR8,SCPROO 

BRCH TO UTILITY ROUTINE 

00ID14 

47 FO 

F 

AO 8 



LGOUTY BC 

ALWAYS,RTOX 

ROUTINE EXIT 


DATE 

EC 


17MAR66 

125643 
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PAGE 3 







IBM MAINTENANCE DIAGNOSTIC PROGRAM 


* F8041 2821 SCAN/2540 READER/PUNCH 

F8060 PUNCH TRANSLATOR* FLT —ROUT INE OVERLAY 05- 


P/N 840474 
PAGE 4 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


| * F8041 2821 SCAN/2540 READER/PUNCH 

1 F8060 PUNCH TRANSLATOR FLT -ROUTINE OVERLAY 05- 


P/N 840474 
PAGE 4A 


001DF0 

44 




DC 

X * 44' 

,, ERROR MESSAGE 

001DF1 

07 




DC 

X • 07 * 

,, 7 CHARACTERS 

001DF2 

F £99 




DC 

S(ERR651) 

,, MESSAGE ADDRESS 

001DF4 

47 FO F C4E 



BC 

ALWAYS,LGOUT 

GO SEE IF WANT LOG OUT 





* 

CCW*S 

- DOUBLE WORD BOUNDARY 


001DF8 

01 001234 

2000 

0050 

PWRCCW 

ccw 

X'01 , ,SCPDAT,X , 20 , ,80 

WRITE PUNCH BUFFER -SLI ON 

001E00 

C2 001234 

2000 

0050 

PRDCCW 

ccw 

X*C2SSCPDAT,X«20«,80 

READ PUNCH BUFFER -SLI ON- 

001E08 

C6 001234 

2000 

0050 

CRDCCW 

ccw 

X*C6* *SCPDAT,X 1 20•,80 

DIAGNOSTIC CHECK READ'-SLI 





• 

CONSTANTS - WORD BOUNDARY 


001E10 

00000009 



NINE 

DC 

XL4•09• 


001E14 

00000008 



EIGHT 

DC 

XL4 , 08* 


001El8 

000000A5 



CDCNT 

DC 

XL4*A5• 


001E1C 

0000 




DC 

XL2 * 00• 


001ElE 

0020 



THRT2 

DC 

XL2 *20 1 




000008 

ZERO 

EQU 

8 


ZERO 

0 




j 

000002 

GZERO 

EQU 

2 


GREATER ZERO 



2 



000008 

AVAIL 

EQU 

8 


AVAILABLE 

0 





000004 

CSWST 

EQU 

4 


CSW STORED 


1 




000002 

BUSY 

EQU 

2 


BUSY 



2 



OOOOOF 

ALWAYS 

EQU 

15 


UNCONDITIONAL 

0 

1 

2 

3 

1 

OOOOOD 

NOTBSY 

EQU 

13 


NOT BUSY 

0 

1 


3 


000007 

NZERO 

EQU 

7 


NOT CC 0 


1 

2 

3 


000004 

NOTZRO 

EQU 

4 


NOT ZERO -AND- 


1 




OOGOOC 

MIXNON 

EQU 

12 


MIXED OR NONE 

0 

1 




O0OOOC 

LOEQ 

EQU 

12 


LOW £ EQUAL 

0 

1 




000000 

NA 

EQU 

»***#*•) 

0 

»**••** 

*************4 


»* 

**i 

!#■ 




• 

* 

ERROR 

NUMBER 

DEFINITION 






001E92 

C5D9D940F6F5F0 

ERR650 

DC 

C *ERR 

650* 

DATA RECORDS MISSING 

OR OUT OF SEQ 

001E99 

C5D9D940F6F5F1 

ERR651 

DC 

C»ERR 

651* 

CAN NOT ISOLATE 

PCH XLATE FAILURE 




END 









CONSTANTS - NO BOUNDARY 


vt 00IE20 

000040403020140C07 

OUTDAT 

DC 

X * 000040403020140C0704024141008864 * 

001E29 

04024141008864 




If 001E30 

342010888522A18100 


DC 

X•342010888522A1810082422412494502* 

s! 001E39 

82422412494502 




001E40 

8960B2603098BC6683 


DC 

X • 8960B26030988C668351ACDC70391EOF ' 

001E49 

51ACDC70391EOF 




K 001E50 

48040A09108945A454 


DC 

X • 48040A09108945A4542A96030584C865 • 

ft 001E59 

2A96030584C865 




Si 001E60 

341A4D86D381C2E271 


DC 

X* 341A4D86D381C2E271BA1D2EA75BC1F4 1 

t! 001E69 

BA1D2EA75BC1F4 




if 001E70 

00171C 

SCRAD 

DC 

AL3IEXIT2) 

|f 001E73 

D7E4D5C3C840E7D3C1 

TITLE 

DC 

C'PUNCH XLATE FLT* 

Si* 001E7C 

E3C540C6D3E3 




001E82 

D5D640C5D9D9E240C4 

NERDET 

DC 

CVNO ERRS DETECTED* 

001E8B 

C5E3C5C3E3C5C4 





* GENERAL REGISTER EQUATES * 

****••***«****«****«**•**»*«***#**»************************************ 


000000 

GRO 

EQU 

0 

000001 

GR1 

EQU 

1 

000002 

GR2 

EQU 

2 

000003 

GR3 

EQU 

3 

000004 

GR4 

EQU 

4 

000005 

GR5 

EQU 

5 

000006 

GR6 

EQU 

6 

000007 

GR7 

EQU 

7 

000008 

GR8 

EQU 

8 

000009 

GR9 

EQU 

9 

OOOOOA 

GRA 

EQU 

10 

O0OOOB 

GRB 

EQU 

11 

OOOOOC 

GRC 

EQU 

12 

OOOOOD 

GRD 

EQU 

13 

OOOOOE 

GRE 

EQU 

14 

OOOOOF 

GRF 

EQU 

15 


*******^************************************************* 
* CONDITION CODE EQUATES 

******************* 


************** 


000078 

000008 

000005 

000001 

000004 

000009 

000008 

000006 

000004 

000002 


HION EQU 
ALLOFF EQU 
ANYON EQU 
ALLON £QU 
MIXED EQU 
NMIXED EQU 
EQUAL EQU 
NEQUAL EQU 
LOW EQU 
HIGH ^QU 


120 

8 

5 
1 
4 
9 
8 

6 
4 
2 


DATE 

EC 


17MAR66 

125643 


********************************** 
HARDWARE I/O NEW PSW LOCATION 
ALLOFF 0 

ANY ON 1 

ALLON 3 

MIXED 1 

NOT MIXED 0 3 

EQUAL 0 

NOT EQUAL 1 2 

LOW 1 * 

HIGH 2 
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EC 


17MAR66 

125643 


ID F806-0 
PAGE 4A 


0O000 0 000O 


0 O Q 0 O 


0 0 0 


O 
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POST ASSEMBLY DATA. 


REFERENCES TO DEFINED SYMBOLS. 


1 

0 

NA 

1C42 







1 

1048 

CAW 

lD2Ct 

1D52, 

1D80 





1 

1040 

CSW 








4 

1D7C 

DCK 

lD46 f 

1D78 






4 

1D18 

DWR 

1A44, 

1D3C 






1 

0 

GRO 

1A6E, 

1A6E, 

1A70, 

1AAA , 

1AB4> 

1AB8, 

1AD4 




1AD4, 

1AE6, 

IAEA, 

1AEE, 

1AF6, 

1AFA, 

1AFA 




1B04, 

1B0C, 

1B10, 

1B14, 

1B56, 

1B72 , 

1B7A 




IBAEf 

1BDC, 

1C02, 

1CF8, 

1CFC , 

1D28, 

1D2C 




1D4E, 

1D52, 

1D7C, 

1D80, 

1DAE, 

1DD4, 

1DD4 




1DE6» 

1DE6 






1 

1 

GR1 

o 1A2C, 

1A48, 

1AAA, 

1AAA, 

1AAE, 

1AD4, 

1C56 




1C68, 

1C76, 

1C84, 

1CCA, 

1CD2, 

1CF8 , 

1CF8 




lDOOt 

1D1C, 

1D40, 

1DAE, 

1DAE, 

1DB2, 

1DCE 

1 

2 

GR2 

1A30, 

1A52, 

1A64, 

1A78, 

1AB4, 

1AB4 , 

1AE4 




1AE4, 

1AE6, 

1B18, 

1B1C , 

1B1C, 

1B22, 

1B26 




1B36, 

1B46, 

1BC4, 

1C5A, 

1C92, 

ICAO, 

1CAE 




lCDAf 

1CE2, 

1CFC, 

1CFC, 

1D6C, 

1D72, 

1DCA 




1DCE 







1 

3 

GR3 

1A34, 

1AEE, 

1AF2, 

1DD4, 

1DD8 , 

1DE6, 

IDEA 

1 

4 

GR4 

1AFA, 

1B4A, 

1B4E, 

1B50, 

1BA6, 

1BC8, 

1BCC 




1BCE 







1 

5 

GR5 

lAFEt 

1B08, 

1B08, 

1C3E 




1 

6 

GR6 

1A38* 

1A38, 

1A88, 

1AB8, 

1AB8, 

1810, 

1B3A 

1 

7 

GR7 

1B1E, 

1B26, 

1B2A, 

1B32, 

1B3E, 

1B56, 

1B5A 




1B7A, 

1B7E, 

1BAE, 

1BB2 , 

1BDC, 

1B60 


1 

8 

GR8 

1A28, 

1A8A, 

1A8E, 

1A8E, 

1A90, 

1A94 , 

1B02 




1B02* 

1B04, 

1B08, 

1B52 , 

1B5A , 

IB 76, 

1B7E 




IBAAy 

1BB2, 

1BD8, 

1BE0, 

1BFE , 

1C02 , 

1C02 




1C06, 

1C0A, 

1D10 





1 

9 

GR9 

1A88, 

1A9C, 

1A9C, 

1AA0 j 

1 ADC , 

1AE6 , 

IAEA 




IAEA, 

1AEE, 

1AF6, 

1AF6, 

1B04, 

1B0C , 

1BOC 




IB 10, 

IB 14, 

1B14, 

1B4E , 

1B50, 

1B56 , 

1B68 




1B72, 

1B72, 

1B7A, 

1B9E, 

1BAE , 

1BBC, 

1BCC 




1BCE, 

1BDC, 

1BE6, 

1BF2, 

1C36, 

1CF4, 

1D00 

1 

A 

GRA 

1A44, 

1A4E, 

1D9E 





1 

B 

GRB 

1A6A, 

1A70, 

1A74, 

1A84, 

1A94, 

1A98 , 

1AA6 




1AAE, 

1AD8, 

1B6E, 

1B88, 

1B9A , 

1BB8, 

1C32 




1C4C, 

1D34, 

1060, 

1D92, 

1DC8 



1 

C 

GRC 

1018 







1 

D 

GRD 








1 

E 

GRE 








1 

F 

GRF 








1 

4 

LOW 






1 


4 

1D4A 

PRD 

1A4E 





f • 


1 

12E8 

SIO 

1D34, 

1D60, 

1D92 





4 

1C3E 

TMA 

1B3A 







4 

1C42 

BCON 

183E 







1 

2 

BUSY 








4 

17E0 

ERNO 

1C06, 

1DD8, 

IDEA 





9 

19E9 

ERRX 

1B68, 

1B94, 

1BE6, 

1C16, 

1C 1C, 

1C24, 

1C2C 




1C4A 







1 

16EC 

EXIT 








1 

48 

HCAW 








1 

40 

HCSW 








• 1 

2 

HIGH 

1B5C, 

1B80, 

1BE2 





1 

78 

HI ON 








1 

C 

LOEQ 

IBB 4 







4 

IE 10 

NINE 

1A8A 





i 


4 

1 ADC 

PT06 








71 

18B9 

RDAT 

1A30, 

1C5A 







DATE 

EC 
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i 


4 

19F8 

RT 00 








4 

1A12 

RTO1 

19FC, 

1A04 






4 

1A20 

RT02 

1A16 







4 

1A2C 

RT03 

1A24 







4 

1A44 

RT 04 

1ABC, 

1D68, 

1D9A 





4 

1A84 

RT05 

1A7C 







r 6 

1A08 

RTOX 

1D14 







6 

1AC0 

RT 10 

1AB0 







4 

1AD4 

RT 20 

1AC6 







1 

1004 

SNSW 

1A12, 

1A20, 

I860, 

1B8C, 

1C4E, 

1D08 


1 

1231 

UAPU 








1 

122D 

UARD 








1 

8 

ZERO 








1 

1 

ALLON 

1BD4, 

1D3C, 

1D68, 

1D9A 



| 

1 

5 

ANY ON 







■ ' | 

1 

8 

AVAIL 







1 ■ 

4 

1E18 

CDCNT 

1DCA 






( 

1 

UFA 

CSWAG 








1 

4 

CSWST 








4 

1E14 

EIGHT 

1A90 







1 

8 

EQUAL 

19FC, 

1A04, 

1AB0, 

1DD0 



1 

1 

19E8 

ERSW1 

1AE0, 

1B42, 

1BD0 




i 

i 1 

1714 

EX IT 1 

1A0E 






1 

j 1 

171C 

EXIT2 

1E70 






i 

1 

2 

GZERO 








i 16 

17E4 

INDAT 

1A2C, 

1C56 






4 

1C4E 

LGOUT 

1AD0, 

1C2E, 

1DE2, 

1DF4 




S i 

1202 

MESS 1 








i i 

4 

MIXED 








i i 

7 

NZERO 








c 4 

1 ADS 

PT051 

1B80 







4 

1AE0 

PT061 

1B84, 

1BA2 






4 

1 AEE 

PT062 

1BB4, 

1BC0 






4 

1AFE 

PT063 

1BA6 







4 

1B72 

PT 064 

1B64 







4 

1B88 

PT 065 

1B5C 







4 

1B9E 

PT066 

1890 







4 

1BA6 

PT067 

1B46, 

1BC4 






4 

1BC4 

PT068 

1C42 







6 

1BE6 

PT069 

1C3A 







4 

1C32 

PT06A 

1BE2 







i 2 

1C28 

PT06X 

1C20 






i 

4 

ID AO 

RDCRD 

1AD8, 

1B88, 

IBB 8, 

1C32 




71 

1900 

RDSNS 







i 

1 1 

19F4 

RTN05 

1015 






■ r 

3 

1E70 

SCRAD 

1A08 







1 

1000 

SECST 

1000, 

1000, 

1000, 

1000, 

1000, 

1000, 

1000 




1000, 

1000, 

1000, 

1000, 

1000, 

1000, 

iooo ! 




1000, 

1000, 

1000, 

1000, 

1000, 

1000, 

1000 j 




1000, 

1000, 

1000, 

1000, 

1000, 

1000, 

1000 1 

! i 



1000, 

1018, 

1068, 

1C 12, 

1C14, 

1C72 , 

1C74 1. 

■ i 



1C80, 

1C82, 

1C8E, 

1C90, 

1C9C , 

1C9E , 

1CAA j 

j ] 



1CAC, 

1CB8, 

1CB A, 

1DAC, 

1DBA, 

1DBC 


! a 

11F7 

SENSE 

1D40, 

1D72 






I 2 

1E1E 

THRT2 

1B2A 







! 15 

1E73 

TITLE 

1A1E 







1 1 

10E0 

UN IT 1 



; 





1 i 

10E4 

UNIT2 








£ ' 

17D0 

WKAR3 

1A58, 

1A58, 

1A74, 

1A80, 

1A84, 

1A98 , 

1AA0 




IB 18, 

1B36, 

1BEC, 

1BEC , 

1BF2 , 

1BF8 , 

1BF8 




1BFE, 

1C0A, 

1C 12, 

1C68, 

1C72, 

1C76, 

1C80 [ 




1C84, 

1C8E, 

1C92, 

1C9C , 

ICAO, 

1CAA, 

1CAE ! 




1CB8, 

10B2, 

1DBA 




! 

;8 

17 D8 

WKAR4 

1A5E, 

1A5E, 

1A64, 

1A6A, 

1C14, 

1C16, 

1DBC !■' 

' ' t 



1DBE 







j 71 

182B 

WRSNS 

1AA6, 

1CF4 






A 

8 

ALLOFF 

1A16, 

1A24, 

1A7C, 

1C 52, 

1D0C 



Si A 

F 

ALWAYS 

1A0E, 

1ABC, 

1AD0, 

IB 64, 

1B84, 

1B90, 

1BA2 j 
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1BC0* 

1C2E, 

1C3A, 

1C4C y 

1D14, 

1D46 9 

1D78 




1D9E* 

1DC8, 

1DE2* 

1DF4 




1 

114C 

CAWKEY 








90 

198E 

COMDAT 

1A34, 

1A3A* 

1A3E y 

1A3E 9 

1A9C 9 

1AC0, 

1AFE 

8 

1E08 

CRDCCW 

1D7C 







1 

112C 

CSWSAV 








7 

1E92 

ERR650 

1DE0 







7 

1E99 

ERR651 

1DF2 







1 

16E6 

EXITBY 








4 

1C5E 

LG0UT1 

1D02 







2 

1CEE 

LGOUTA 

1CC6, 

lCCEy 

1CD6, 

1CDE, 

1CE6 



4 

1D08 

LGOUTX 

1C52 







| 4 

1014 

LGOUTY 

1D0C 







1 

C 

MIXNON 








j ■ 1 

6 

NEQUAL 

1AC6, 

1B2E, 

1C20, 

1CC6, 

ICCEy 

1CD6, 

1CDE 




1CE6, 

1D02» 

1DC4 





i 16 

1E82 

NERDET 

1ACE 







! 1 

9 

NMIXED 








:,! 1 

D 

NOTBSY 








'!' 1 • 

4 

NOTZRO 








16 

1E20 

OUTDAT 

1AC0 







2 

1C46 

PRCRES 

1B6E, 

1B9A 






8 

1E00 

PRDCCW 

1D4E 







4 

1B36 

PT0630 

1B2E 







I ■ 4 

1B52 

PT0631 

1BD4 







I ■ ' 8 ■ 

1DF8 

PWRCCW 

1028 







:f 71 

1947 

RDCKRD 








1 4 

1DCA 

RDCRD1 

1065 







1 4 

1DE6 

RDCRD2 

1DD0 







• 4., 

1DD4 

RDCRDX 

1DC4 







IV 1 

179C 

SCHNUM 

19F8 t 

1A00 






1 

1234 

SCPDAT 

1A48, 

1A52, 

1ADC» 

1B52, 

1B76, 

lB94 t 

1B9E 

'J 



IBAAy 

lBBCy 

1BD8* 

1C36, 

1C5E 9 

1C 62 , 

1C62 




1C74* 

1C82, 

1C90* 

1C9E 9 

1CAC 9 

1CBA 9 

ICBC 




1CC0, 

1CC0, 

ICEAy 

1CF2 9 

IDIC 9 

1D22 9 

1D22 




1D56, 

1D5A, 

1D5A» 

1D6C, 

ID 889 

ID 8 C 9 

1D8C 




IDAOy 

1E08 

IDA4, 

1DA4, 

IDACf 

1DBE 9 

IDF 89 

1E00 

1 

163E 

SCPROO 

lA2Sy 

1D10 






.1 1 

114D 

SI0SW5 








1 

114D 

SIOSWS 

1D30, 

1D38* 

1D4A, 

1064f 

1D84, 

1D96 


1 1 

112C 

SI0VR3 








1 

1134 

SI0VR4 








1 

11F8 

STATSV 








§ 1 

1060 

SVRPSW 

1A08 







1 

10E2 

UNIADR 








1 

10E6 

UN2ADR 

1D18 







71 

1872 

WRCKRD 








1 

1000 

XF8060 









NO ERROR DETECTED IN ABOVE ASSEMBLY 





DATE 

EC 


17MAR66 

125643 


ID F806-0 
PAGE 6 



















IBM MAINTENANCE DIAGNOSTIC PROGRAM 


G C C C C C C C G 


P/N 840474 
PAGE 7 


F804 
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BTXT.AMS. 

-A8. 

.AAODGA 

EHAA7UAJ8IB•24X42524 

KA70AABEAAG0B7KA70AG 

BEAAGOB2KA7080600017 

9 Y8 

Y9 

Y9 9ZY 

Q9ZQ ZY 0- 9899 

Y —QY8QY99-99 Y -QZ 

8QY99-98 Y - 

99 

9 

9 

Z 9 9 - 

9 99999 9 9 

999 9 9 

BTXT.AMH. 

• A8. 

•AAAFBE 

AAG0B5KA70JABEAAGOB• 

KA70JGBEAAG0BCKA70JF 

BEAAG0BFBM2580600018 

9 Y80 

Y9 

Y9QY8Q 

Y99-98 Y —YY8QY99—9 

Y -YZ8QY99-9Z Y -YY 

8QY99-9Z-8 9 

99 

9 

9 9 99 

9 99 99999 

9 9 999 9 9 

999 

BTXT.AMO. 

• A8 • 

•AANA27 

2.G-D0EAAGG-D0EAAFG- 

DOEAJGG-DQEAJFG-DOB. 

25B0AM24AA8T 80600019 

9 Y8S 

Y9 

Y9 9 9 

Z QY-YQZZ QY-YQYZ 

QY-YYZZ QY-YYYZ QY- 

98-Y9 9ZQ 8 

99 

9 

9 

Z9 99 Z9 99 

Z9 99 Z9 99 Z9 

9 9 

BTXT.AM8. 

• A8 • 

•AAAAAA 

AJJANJG—DOBBA.ODGAEM 

EA66G0BHH00WKA24AAKF 

2524AAE86A0H80600020 

9 Y8 

Y9 

Y9ZQQ9 

ZYY998Z Q88Q- 9ZYQ9 

ZY 8Z Q9Z6 Y 9QY 8 

9 9ZYQ Y Z 

99 

9 

9 99 

99 9 Z 99 Z 

9 Z 9 99 

9Z 9 

BTXT.ANA. 

• A8. 

•AABA1E 

EA2YAA1EGAEQKAAG17G0 

E4BA1EAAFA6A0HBA24KF 

2524EA2YAA1E80600021 

9 Y8Q 

Y9 

Y9-Y 8 

ZQ -9 8ZQQ9 YQZ Z 

Q8-Y 8ZYQY Y Z-Y 9 8 

9 9ZQ -9 8 

991 

9 

9 9 

0 9Z 99 

Z 9 9Z9 9 9 

0 


BTXT.ANQ..A8..AAGABD KAJA24KAJG17G0E4AAFH GA0HBA1EBA24KF2524EA 2YAA1EGABDGB80600022 


9 

Y8Z 

Y9 

Y9ZQQZ 

YYY 

9 YYZ 

Z Q8ZYQ9 

Y Z-Y 8-Y 989 9ZQ 

-9 8ZQQZ9Q 


99 

9 

9 9Z 

999 

99 

Z 9Z 

9 9 9 0 

9Z Z 


BTXT.ANJ.•A8. .AABA24 KF2524BCB4AAAAFA70BE ABG0GQNB7Q2AG-EMGCHJ FQN/GAEWAABB80600023 


9 

Y8Y Y9 Y9-Y 9 

8 9 98Q99ZQQ98Q 

-8Q 

Y99 9 9 

OZ Q 9QRY 

Q999ZYQ 

ZQ9Y 


99 9 9 9 

99 99 9 

99 

9 

119 

z z 

Z 


BTXT.ANQ..A8..AASA7S B0DGFBG0DFAABCSA7SB0 DGFIG0DFAAK4JAASBAK4 JAA6FAK4JAA680600024 


9 

Y8 

Y9 Y9 Q 8 

8-Z9Q-Z 

Q8ZQ9Y 

Q 88- 

Z9Q-Z Q89Y99YYY Y99 

YYY 

Y99YYY 


99 

9 9 Z 

9 Z 

Z Z 

Z 9 

Z Z 9 999 9 

999 

9 999 


BTXT.A0A..A8..AAAAAA AAAHAAANAAAJAA..AJMD GDBAAAHM4JAHESJAABBU KAEBI—B-AHD080600025 


9 Y8Q 

Y9 

Y9YYY8 

YYY9YYY0YYYYYY QY98 

999ZZY0Z9YQ00900Y0Z9 

98Z90 0 Q-YZ 

999 

9 

9 9999 

999 999 999999 Z9 9 

9 

99 

9 

- Z 

BTXT.AOH. 

• A8. 

.AACAMO 

010GHDBAAIEMDSFCEDHN 

4KEFLABSABNWPLA4APMP 

UNCH.XLATE.F80600026 

9 Y8Z 

Y9 

Y90RYQ 

6888Z988Q0Z0R8—990 Z 

9880 0 

RQ8808 

Y98 


99 

9 

9 9 

-999 999 9 

9 

0099 

9 9 


BTXT.AOA. 

. AJ. 

•AALTNO 

• ERRS.DETECTEDERR.65 

0ERR.651 



.80600027 

9 Y8Y 

YY 

Y9 






99 

99 

9 






BRLD. 

• AM. 

.*.AAAA 

A A AN A A AN A AN9 A AO A A AO A 

HAOO.••• 



.80600028 

9 

Y8 

Y9Y9 

8YQ98YQZ8Y8 8Y898Y88 

9YSS 





99 

9 9 

999 999 999 999 9999 

99- 





BEND.. .. .. .80600029 

9 

BOAT... .... .80600030 

9 i 


F32BDAGACBA3AFJAAAAO 002B0BJT•AAAA0003BAE AFJAAAA0004E$BADAA.0 AAP.AAAAAA.180600031 

99999QZY89Y998YYYYY 9 8Y9 YYYY 9Y8 98YYYYY 9 8Q9Q8 9 YY9 YYYYYY 

9 9 99999 99 9999 9 99999 99 99 9 999999 

0005CADADAKHAA0006FD /AFASJGAA7HNDAAAAQ00 7CAFADAGAAA0008CDKHD A7HAA0009..180600032 

9Q899Q99YY 9Q 9Y8Y9Y89Q8989YYYY } 9Q8Y9Q89YY 9Q998 989YY 

Z 9 99 Z 9 99 Z9 9 9999 Z9 99 99 o Z 9 99 

CAADDAYAAA0010A02.AA AAAA0011EAEJDABAFA0G DAAAAAA0012ECABYJ4BA AAAAAAAAAA.180600033 

9Q899Q9YYY 989 YY YYYY 9Q9Y9Q8Y9QS9 9YYYYYY 9Y99Y999 9YYYYYYYYY 

Z9 9 99 99 9999 19 9 9 999999 99 99 999999 
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0013E7DJDAJBGHAGDAAA AAA0014DDYJ4BBAAB001 

989Y9Q8999Y99YYY YYY 9Y9Y998YY9 

9 9 99 9 999 999 99 9 

BADAADAAAA0018DA2BDA GACB0020B0BJT.AAAAOO 

9Y9Q89YYYY 9Q999Q ZY89 9S8Y9 YYYY 

9 99 9999 Z 9 99 9999 

H7GJDAADFA3A.CAGATB0 023EGPAGHEALDODJAAAA 

988Y9Q898Y98 898999 9899Z9898989YYYYY 

999 99 9 9 9 9 9 9 99999 

BAEAFJAAAAOO26F4JJDA DAAA0DBNDAAAA0027F70 

I 9Q898YYYYY 989Y9Q 89Q9 Z999YYYY 989 

Z 99999 999 Z 9999 9 

I 0029C0LDDAKHAA0030FC 5./ANDBD0CDEAAAAA003 

9 998999YY 9 8 9Y8999 8989YYYY 

99 9 9 9 9 9999 

D07HKH/AKA0033DGGABJ FA/A0034EDND/AWD5.0B 

9889999Y9Q 9Y898Y 8Y9Y 9Y899Y998 89 

9 9 99 99 9 99 9 

B0GH2•AAAA0037F41BDA DAA.ABBABAAAA0038D7G 

98Z99 YYYY 98899Q 898 Y8989YYYY 98Z 

9999 99 9 99 9999 9 

0Q40F7DJDAJBGHQGDPAA AAA0Q41EAEJDABAFAAGD 

989Y9Q899989999Y YYY 9Q9Y9Q8Y9QY99 

9 9 99 9 999 Z 9 9 99 

0043F7MADADJEJA5DLJA AAA0044B0BAYJAAAA004 

989Y9Q9Y9YY899YY YYY 988Y9YYYYY 

9 9 9 999 99 % 999 99999 

BAB.DAAAAA0048 E3EJDA BAFAAGHAAAAAA0049DAJ 

9Q9 9QYYYY 999Y9Q 8Y9QY99YYYYYY 9Q8 

Z 99999 99 99 999999 19 

EOLHADKH7H0WDAAAAAAQ 064E0JJB.KH7H0WDAAAA 

9 89899989899YYYYYY 9 8Y9 9989899YYYY 

99 9 999999 99 9 9999 

0WDDD3ACA0066DCKAKH7 HWD0067C0P.2.GHFADVA 

899998Q8Q 9 8Q998 999 889 9 Z9ZQY9Y 

9999 99 9 9 99 

OCAAAAAAA0069 E03J2.4 JGHAHDAAAAAA0070G0E. 

88QYYYYYY 989Y9 8 YZ9YZ9YYYYYY 989 

99999999 9 9 9 9 999999 h t 

AFAVAHDBAODJJAAAAAOO 72D4FADADAGA3LDVA7HD 

j QZQ9YZ98Y89Y8QYYYY 888Y9Q89899999Y899 

Z 9 ,9999999 99 9 9 9 ? 

8 

AXDAAAAAA0074G0DALDY J4BD2B. AJ J AA0075F4J|J 

Y89YYYYYY 9 8Q899 Y99Y99 Y9YYY 989Y 

99 999999 : 99 99 999 9q9 

9 

DDJPAYBAA0077E7JJDAD AAAANBAAAAAA0078N38H 

| Q9Y9999YY 989Y9Q8 9Q9Y99YYYYYY 9 99 

! Z 9 99 9 9 9 Z 9 999999 Q 

s i ; . ■' : 

j GDAGAJJ0A7EA8A7JVAOU JAAAAAA0079H0TBGAYJB 

QZYZY9Y998899Q9Y8Q89 YYYYYYY 9899899Y8 

| Z 9 99; 9 999 9999999 9 f 

{ Q 

I z 


5BADAADAAAA0016D04BL DYJAB0017..180600034 

9Q9Q89YYYY 9 998 99YY9 

Z 99 9999 9 99 

21G0AAYJBAFHA$A5.CJA A0022.180600035 

98ZY9Y8Y89Y8Q8 8YY Y 

9 9999 99 9 

AA0024E3BADAA.OAOP.A AAAAA0025••180600036 

YY 9 8Q9Q8 9Y89 Y YYYYY 

99 99 99 9 99999 

ADADADAOUA8AAAAA0028 CD7HKH/AAA.180600037 

99Q89ZY88Q9QYYYY 9Y89999YYY 


9 99 99999 99 99 

1E7DADAFA0AAUAAAAAAA 0032.180600038 

98ZY9Q8Y99Y8QYYYYYY 
9 99 999999999 

DAAAAAA0035C4ADDAYAA A0036.180600039 

9YYYYYY 98899Q9YY Y 

999999 99 9 9 9 


ADA2BVB0039E0DDBJA.B AOEJAAAAAA.180600040 

Y9Q9999 98998Y8 8 Y89YYYYYYY 

9 999 9999999 

AAAAAA0042FCABYJ4BAA OAASBAAAA..180600041 

YYYYYY 9 Y99Y9999 8YY89YYYY 

999999 99 99 9999 

5D4DJDAJ8GH0046CDBAY JEAAA0047..180600042 

989Y9Q8999 9Y9Y9 Y9QYY 

9 9 99 , 9 9 999 


BDA4JGH0050D7LDDAADY A0051.180600043 

99Q8YZ9 98899Q899 Y 

999 99 99 

AA0065DDDBDAFAA.D7HB AEJBA.180600044 

YY 8Q999Q8Y8 8898 Y9Y8Q 

99 9Z 99 9 99 999 


YJDJBADJADB0BAA0068E 7WDDADAJJ..180600045 

9Y9Y8Q88Q8989YY 9 8999Q898Y 

9 9999999 9 99 9 9 99 

2.4JGHDHDBAEJAA0071B 0AB2.4JGH..180600046 

9 8YZ98Z98Y9YYY 8 6999 8YZ9 

99 9 9^9 9 99 

JOEJGA2DDA0073E0HD2. 4JGH.180600047 

Y 9YZY89Z9 96Z99 8YZ9 

9 9 9 [, 99 

n 

DADAAA0DBNDAAAA0076G CT.BJGHEA..180600048 

9Q89Q9CZ999YYYY 9 99 8YZ989 

9 Z 99$9 99 


DAGHDA3FAVABADJDBAJA 2BDB.180600049 

9QZ9899ZQ9Y8Y9Y88Q8Q 9989 

9 9 $,999999 9 

A3DBABJBGJ0080G0AAYJ BAFH..180600050 

Y98989998Y 9SZY9Y 8Y89 

9 99 i 9 
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D3A5.CJAA0081FDDBFAS 
88 Q 8 8 YYY 9Q898Y9 
9999 999 29 9 

D05./ANDBD0084E0FDB. 
988 9Y8999 9 Z99 

9 9 

G7MADADJEJA5DLJWHAAO 
989Y9Q9Y9YQ899Y89YY 
9 99 9Z9 99 99 

A3DEDAAAA0089AD3DYAL 
Q9999YYYY 8Q999Y8 
Z 9999 9Z 9 

AD3DYALDYJC4B.A6DH.0 
8Q999Y899Y999 Y99Z 8 
9Z 9 9 

OUAEA/.AA0094D4DADAF 
8Q899 YY 98ZY9Q8 

999 99 9 99 

A0QJ2.4JGH3EADJJA2BD 
Q89Y9 8YZ9 899Y8Q99Q 
9 9 99 999 Z 

DOBADAA.0A0100DC0BBJ 
9 8Q9Q8 9Y 8 898Y 
99 99 99 99 

G3DAEAGALD77H2BHACB3 
89Z989898988999ZQ89 
9 9 9 99 9 

0GJGJA8QJ0XDXHEAAA01 
ZY8Y999Y88989Z9YY 
999 999 99 

CWDBALHSAAS.AAAAAA01 
999Y898YY8 YYYYYY 
9 9 99 999999 

GFAA.CA6HCDAMA5.NA0U 
Y 8 Y 8 8989 ZY 8 Y 8 89 8 
99 999 999 9 

HC5./ANDBD0CDEAADAA0 
9 8 9Y89998898999ZY 
9 9 9 9 

ALDF.AAAA0112HC5./AN 
Y99Z YYYY 9 8 9Y8 
9 9999 9 9 

0NBAAAAAA0115D7BADAA 
899YYYYY Y 88Z99Q8 

999999 99 99 

AVHWHUJAAQ117D0P.2.G 
Y89899YYY 889 9 Z 
99 9 999 9 

G78ADA2BDA00AEAG.AAO 
989Q9Q99ZY899898 YY 
9 9 9 9 99 


JGAA7H/AAAAA0082AGAH 
Y89Y899YYYYY 88Z9 
99 99 9999 99 

YJBAAFBAAAAAA0085DDF 
9Y9YY99YYYYYY 8Q9 
9 9 999999 9Z 

087F0FDB.YJBA0FBMBAA 
9 Z99 9Y9Y89989YY 
9 9 99 

DYJC4B.A 6 DH.AGBAAAAA 
99Y999 Y99Z Y99YYYYY 
9 9 99999 

GBAAAAAA0092H78ADA2B 
99YYYYYY 989Q9Q99 
999999 999 

A0A0095FC7HKH/AKAAJJ 
Y99 9 89999Y9QQ8Y 

9 9199 

GACB3AFJDVH.JTASA009 
ZY89998YQ99 Y999Y 
9Z 9 

7HEJG/ADBT.GJGP.TBDA 
899Y89Y899 8Y89 9919 
9 99 9 999 

3ADBAAFA40BBAJBAA010 
99Z9ZY8Y889Z9Y9YY 
99 9 99 

04A4T•DADAGADLD7HHAD 
888 90898989989ZQ9 
999 9 9 9 9 9 

Q6A7SADAB.DACGALD7HH 
888Y9Q9 899899989Z 
999 9 99 

J/./AAA0108B7SADAB.D 
Y 8 8 YYY 888Y9Q9 8 
99 9 99 999 9 

11QB4UJ DADANDDDAOAUA 
888Y908989QZY998Q 
9999 9 9 Z 99 

DBDCCDEAADAA0X13GCT• 
999 898999ZY 999 

9 9 

DFA7A.6HlBDAA3A5icAG 
98Y88 8989ZYY808 8 Q 8 
9 99 9 9 9999:99 

HFADVAYJDJBAAJADBOBV 
9ZQY9Y9Y9Y8QY 8089898 
99 9 9999999 9 9 

121F0NDDAA.GACLD7H6A 

8 999Q8 899998980 

9 99 9 9 99 


GHEAFA4GA2BGAAAA.JAA 

AAAA0083.• 

.180600051 

Z9898Y88999ZYZYY YYY 

YYYY 


9 99 9 999 

9999 


BYALDYJC4BABTBMAADDS 

B3DFD0086• 

.180600052 

99Y899Y999Y9899YY998 

99919 


9 9 9 9 9 9 

AA0088BDDHYALDYJA4BB 

AEADD. 

.180600053 

YY 8Q999Y899YY999 

Y9Q99 


99 9Z 9 99 

9 


A0090FCJA2.FAVAABADJ 

AAAA0091•• 

.180600054 

Y 9 8Q9 ZQ9YQ8Y9Y 

YYYY 


9 99 9 Z 9 

9999 


DAGOAEAG.JH0093G7DAD 

AFAOA. 

.180600055 

ZYY99898 99 98ZY9 

Q8Y99 


9 9 9 

99 


FAAAAA0096C42BDAGAAA 

0097. 

•180600056 

8 YYYYY 98999QZYYY 

9999 9 9 99 

8F32BDAGACBA3AFJAAAA 

0099. 

.180600057 

99999QZY89Q998YYYYY 

9 Z 99999 

PB0101E7WDDADAJJACAA 

AAAAA0102. 

.180600058 

99 98999Q898YY8QY 

YYYYY 


9 9 999999 

99999 


3LGSABJEAB.DADFASJGA 

7HDPA2B1B. 

.180600059 

989Y8Y899 Q898Y9Y89 

8Z9999989 


9 99 Z9 9 99 

9 9 


D0SAAAAAAA0105A7XBDA 

ADDA. 

.180600060 

988YYYYYYY 88999Q 

8989 


9 999999 99 9 

9 


AOT.AAAAAA0107G7XADA 

EAAD. 

.180600061 

Q 88 YYYYYY 88899Q 

8989 


9 9 999999 999 9 

9 


ACGALD7HHAAT.SJAAAAO 

109. 

.180600062 

99899989ZQY8 8 YYYYY 

9 9 999 999999 

5.A6JVHAAAA0111F4HAD 

ADAGA. 

.180600063 

8 Y8Y89YYYY 98ZQ9 

. Q8989 


9 9999 9999 9 9 

9 9 


BJGHEAODJPAYBAA0114E 

7JJDADAAA. 

.180600064 

8YZ989 9Y9999YY 9 

89Y9Q89Q9 


99 9 99 

9 9 9 Z 

1 

A0116C7VADADADAGCB0A 

VHG. 

.180600065 

Y 888Q9Q89ZYQ8999 

998 


9999 9 Z 



H0119G3EAFA/ADA45.A. 

8AAA0120.. 

.180600066 

9 9 898Y9YZY88 Q 

9QYY 


9 9 99 9 

999 

1 


WDGHAGJJJNBAOBXDAAAA 
99QZQZY9Y99Y8989YYYY 
2999 99 9 9999 


0122.180600067 


G7DADAFA0ADUAEA/•AAO 

98 ZY9Q8Y99Q8Q899 YY 

9 99 Z999 99 

A4XDDADAGAALD7HHD3JD 
Q8899Q8989Y9989Z99YQ 
999 9 9 9 9 9Z 

D3VADAFAJB0128HD3DYA 
999Y9QZQ89 9Q999Y 

9 99 Z 

OQJAAAAAA0130GDCAFAS 
£9YYYYYYY 9QZ98Y9 

9999999 Z 9 

OVAGJAAAA0133P07 ADAG 
8 Q 8 YYYYY 9 9Q9QZ 

i 99 99999 9 9 

0134C4PADAFADB4NDDA0 
889Y9Q8Y89889ZY9 
99 99 9 99 

AJJAAAAAA0136DGND/AW 
Y 8 YYYYYYY 9Y899Y9 

999999999 99 

AUAUBAAAA0139E4.JDAD 
i Q8Q89YYYY 88 Y9Q8 

| Z999 9999 99 9 9 

FD/AFASJGAA7HNDAAAA0 
9Q9Y8Y9Y89Y8989YYYY 
Z 9 99 99 9 9999 

0143F77 ADADJEJ0MA5DA 
98899Q9Y9Y 9Y89Y 
99 9 9 9 9 9 

0146E7MADADJEJ05 DAAA 
989Y9Q9Y9Y889YYY 
9 9999 999 

0152DDGAB.YAYJD4BABM 
8Q999 9Y9Y899Y99 
9Z 99 9 

F7DJDAJBGH0GDPAAAAA0 
989Y9Q8999 9999YYYY 
9 9 99 9999 

A3D/DDHGA0159HDSBYAL 
Y99899999 9Q899Y8 

99 | Z9 9 

OAASBAAAA0162DOAAYJ4 
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1. PURPOSE 

1.1 INTENT 

TO ISOLATE A SOLID DATA PATH FAILURE WITHIN THE 2821/1403 
UNIVERSAL CHARACTER SET ATTACHMENT. 

2. PREREQUISITES 

2.1 PROGRAM REQUIREMENTS 

THE PROGRAM IS RUN WITH A DIAGNOSTIC MONITOR. 

THE PROGRAM ASSUMES THAT THE CPU £ CHANNEL ARE OPERABLE. 
THE PROGRAM IS RELOCATABLE. 


2.3 2821 REQUIREMENTS 

CONTROL CIRCUITS FUNCTION PROPERLY. 

ERROR CHECKING CIRCUITS FUNCTION PROPERLY. 

PRINTER CAN BE MADE READY. 

DATA MODE SWITCH MUST BE SET TO BYTE MODE. 

2.4 PROGRAM IDENTIFICATION NUMBERS 

TO MINIMIZE MAINTENANCE COSTS FOR FUTURE PROGRAM REVISIONS 
DUE TO ENGINEERING CHANGE ACTIVITY, THE FOLLOWING ID NUMBERS 
HAVE BEEN ASSIGNED TO VARIOUS PORTIONS OF THIS PROGRAM PACKAGE 


I I I 

I ID NUMBER I ASSIGNMENT I 

II I 

I F80C* I DESCRIPTION OF COMPLETE PROGRAM I 

I I WHICH INCLUDES ALL ROUTINE OVERLAYS.I 

I F80C I OBJECT DECKS AND ASSEMBLER PROGRAM I 

I I LISTINGS FOR ROUTINE OVERLAYS I 

I I 01 AND 02. . I 

I F80D I OBJECT DECKS AND ASSEMBLER PROGRAM I 

I I LISTINGS FOR ROUTINE OVERLAYS I 

I I 03 AND 04. I 


❖❖NOTE** THE SEARCH NUMBER FOR THIS PROGRAM IS 80C— 
80D CAN NOT BE USED. 

3. USE PROCEDURE 

3.1 LOADING 

STANDARD VIA DM AS DESCRIBED IN THE USERS GUIDE* 


i 


THE UNIT DEFINITION TA3LE-UDT-ENTRY MUST BE PUNCHED AS FOLLOWS. 


* UNIT CODE * * * 

- * OPTIONAL FEATURE DIGIT 1- OPTIONAL FEATURE DIGIT 2 * 

* * * * 

___ _-_*—*--—* 


* UNIT ❖ZZ^BIT 0* BIT I* BIT 2* BIT 3* BIT 4* BIT 5* BIT 6* BIT 7 * 

* * *HEX 8* HEX 4* HEX 2* HEX 1* HEX 8* HEX 4* HEX 2* HEX 1 * 


* 1403 

* OR 

* 1404 PRINTER* 

* CONTINUOUS * 

* FORMS * 


❖ *7APE * 

* ❖LISTER* 

# * * 

❖ # ❖ 


PRINTER*83*ASCII*SEL * 

❖ 


❖ UNX V. * HI- 

* 120 

❖ 

❖ 2821 

❖ 

❖CHAR. *SP£ED 

❖PRINT 

❖ 

❖2 CHNL 

❖ 

❖BUFF. *P7R. 

❖ POS. 

❖ 

❖SWITCH 

❖ 

* ❖ 

* 

❖ 

❖ 

❖ 

* * 

* 

❖ 

❖ 

❖ 


2.2 EQUIPMENT REQUIREMENTS 


SINCE THIS PROGRAM PACKAGE UTILIZES THE PROGRAM OVERLAY 

CONCEPT, ALL ROUTINES MUST BE LOADED AND RUN IN ID NUMBER 
SEQUENCE. 

3.2 OPERATING 

3.2.1 GENERAL OPERATING 

THE PRINTER MUST 8E MADE READY BEFORE RUNNING PROGRAM. 

**IMPORTANT#* THE ORIGINAL CONTENTS OF THE UCS BUFFER ARE 

DESTROYED 8Y F80C AND F80D. THESE PROGRAMS NO 
LONGER PROVIDE THE FACILITY TO RESTORE THE UCS 
.BUFFER—THEREFORE, DO NOT ADD ANY CHAIN 
CONFIGURATION DATA CARDS TO F80C OR 
F80D• USE PROGRAM F837 TO RESTORE 
UCS BUFFERS. 


PROGRAM LOADING DEVICE 
HARD COPY OUTPUT DEVICE * 

CPU ~ OPERABLE 

CHANNEL - OPERABLE 

8 K MINIMUM STORAGE 

2821 INTEGRATED CONTROL UNIT 

* THE OUTPUT DEVICE CANNOT BE THE DEVICE UNDER TEST. 
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3.2.2 SENSE SWITCH USAGE —COMMON TO ALL ROUTINES— 


THE SENSE SWITCHES SHOWN BELOW ARE IN THE SENSE SWITCH BYTE 
OF THEIR RESPECTIVE SECTION PREFACE. THE CHARACTER X REPRESENTS 
THE RELOCATION FACTOR CONTAINED IN REGISTER 15 DURING RUN TIME. 
THE SWITCH BITS ARE ZERO WHEN OFF, AND ONE WHEN ON. 


I SENSE 
I SW. 

I # 

I 0 
I 

I 
I 
I 

I~ 

I 
1 
I 

1 “ 

I 

I 


I 

I FUNCTION 

I 

I OFF—PROCEED NORMALLY 
I ON—SHORT LOOP ON START I/O - TEST 

- 1 *---—-—-—- 

I off—-PROCEED NORMALLY 
I ON—ENTER UTILITY SCOPE ROUTINE 
I REFER TO SECTION 3.2.3 FOR DETAILS 

* r——— -*—--—*— 

I OFF—PROCEED NORMALLY 
I ON—LOG OUT DATA ACCUMULATION TABLE 
I REFER TO SECTION 4.4 FOR DETAILS 

I OFF—PROCEED NORMALLY 
I ON—PRINT SECTION TITLE 


I/O 


I SECTION I BYTE 
I OR I AND 

I ROUTINE I BIT 

-I-- 1 - 

I ENTIRE I X004 
I SECTION I 0 

I I X004 

I ,, II 

I I 

I I X004 

I 12 

I I 

I I X004 

I ** 16 


3.2.3 UTILITY ROUTINE SET-UP PROCEDURES 

THIS IS A RESIDENT ROUTINE. IT CAN ONLY BE ENTERED AT 
THE BEGINNING OF EACH ROUTINE OR AFTER THE ANALYSIS 
RESULTS AND LOG OUT PRINTOUT OF EACH ROUTINE. THIS 
ROUTINE WILL BE ENTERED AT THESE TIMES IF SECTION 
SENSE SWITCH 01 IS SET TO 1. 

WHEN THIS ROUTINE IS ENTERED, AN OUTPUT MESSAGE WILL 
INFORM THE C.E. TO PRESS CONSOLE STOP, THEN ENTER THE 
SCOPING DATA. THIS DATA IS TO BE ENTERED, IN HEX, VIA 
THE CONSOLE SWITCHES AS INDICATED BELOW. 


CAW — X048 THRU X04B 
CCW — X570 THRU X577 
DATA FIELD — X57C THRU X675 

I AFTER THE ABOVE DATA HAS BEEN ENTERED, THE C.E. COULD 

I SET UP ONE OF THE FOLLOWING OPTIONS BEFORE PRESSING CONSOLE 

I START. 


1. SET SECTION SENSE SWITCH 0 TO 1 TO PUT THE SELECTED 
OP IN A TIGHT START I/O - TEST I/O LOOP. 

2. SET SECTION SENSE SWITCH 0 TO 0 TO PERFORM THE 
SELECTED OP ONCE. IN THIS CASE THE UTILITY ROUTINE 
WILL PERFORM THE SELECTED OP ONCE, THEN REQUEST NEW 
SCOPING DATA. 

3. SET SECTION SENSE SWITCHES 0 AND 1 TO ZERO. IN 
THIS CASE, THE SELECTED OP WILL NOT BE PERFORMED, 
AND A BRANCH BACK TO THE MAIN PROGRAM WILL OCCUR. 

THE C.E. CAN EXIT FROM THE UTILITY ROUTINE BY PRESSING 
CONSOLE STOP AT ANY TIME, SET SECTION SENSE SWITCHES 0 
AND 1 TO ZERO, THEN PRESS CONSOLE START. 


3.3 HALTS 

3.3.1 NORMAL HALTS 


NONE 


3.3.2 ERROR HALTS —COMMON TO ALL ROUTINES— 

THE PROGRAM WILL NOT STOP ON ANY ERROR HALTS UNLESS THE 
HALT ON ERROR SENSE SWITCH IS ON IN THE DIAGNOSTIC MONITOR. 

3.3.3 SPECIAL HALTS —COMMON TO ALL ROUTINES— 

THE PROGRAM WILL ONLY HALT ON THE SPECIAL HALTS 
IF THE CORRESPONDING SENSE SWITCHES ARE SET. 


BYTE 

BIT 


0 12 3 

01234567 01234567 01234567 01234567 


GRA 


I 

■OP CODE! 
SEE I 
6.1 I 

—-—— I- 


-SLI Ft 

-SKIP * 


.AG, 
: LAG s 


BIT 2 
BIT 3 


GRB I- 


GRC 


—CONTENTS OF DATA FIELD- 


I 

- 1 

I 

II I 

—CCW COUNT—I I I/O ADDRESS-1 

I I I 


NOTES— THE FOUR BYTES OF DATA ENTERED IN GRB WILL BE 
RIPPLED THROUGHOUT THE CCW DATA FIELD. 

— IF THE CCW COUNT EXCEEDS 230 BYTES, THE ROUTINE 
WILL FORCE IT TO 250. 

— THE MAIN STORAGE LOCATIONS OF PERTINENT FIELDS 
USED BY THIS ROUTINE ARE LISTED BELOW. X DENOTES 
THE RELOCATION FACTOR CONTAINED IN 
REGISTER 15 DURING RUN TIME. 

SIO INSTRUCTION — X700 THRU X703 


HALT AFTER LOG OUT OF THE DATA ACCUMULATION TABLE. 

IF THE OPERATOR REQUESTS THE LOG OUT OF THE DATA 
TABLE, THE PROGRAM WILL HALT AFTER THE LOG OUT. 

IN ORDER TO CONTINUE, THE INTERRUPT KEY ON THE 
CONSOLE MUST BE DEPRESSED. 

HALT TO SET UP INFORMATION FOR UTILITY ROUTINE. 

IF THE OPERATOR REQUESTS TO USE THE BUILT IN UTILITY 
ROUTINE, THE PROGRAM WILL HALT TO ALLOW THE ENTERING 
OF NECESSARY INFORMATION. AFTER THE INFORMATION IS 
ENTERED, THE CONSOLE START KEY MUST BE DEPRESSED TO 
CONTINUE. 

3.4 TERMINATION 

THE PROGRAM RETURNS CONTROL OF THE SYSTEM TO MONITOR VIA 
MONITOR CALL SVC D6. 

4. PRINTOUTS 

4.1 TITLE PRINTOUTS 

THE FOLLOWING TITLE PRINTOUTS WILL OCCUR ONLY IF SECTION SENSE 
SWITCH 06 IS SET TO 1. 

-2821 SCAN/1403 UCS, CONTROL PROG- 
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ABOVE PRINTOUT IS THE TITLE FOR ROUTINES 01 AND 02. 


-2821 SCAN/1403 UCS, PRINT BUFFER DATA REG FLT- 
ABOVE PRINTOUT IS ROUTINE 03 TITLE. 


-2821 SCAN/1403 UCS, UCB DATA REG FLT- 

ABOVE PRINTOUT IS ROUTINE 04 TITLE. j 

4.2 INSTRUCTIONS TO THE OPERATOR —COMMON TO ALL ROUTINES— ! 

-NOTE-DO NOT USE DEVICE UNDER TEST FOR OUTPUT- 

ABOVE MESSAGE IS PRINTED TO REMIND THE C.E. NOT TO USE THE j 

DEVICE UNDER TEST AS THE OUTPUT DEVICE. THIS IS NECESSARY 

BECAUSE THE TEST PROGRAM DESTROYS THE ORIGINAL DATA IN THE J 

UCS BUFFER. j 

-I/O ADDR XXX CAW YYYYYYYY GOT CC1 CSW STATUS 0200 SNS 40 1 

MAKE PRINTER ROY- j 

ABOVE MESSAGE WILL BE PRINTED IF INTERVENTION REQUIRED IS j 

ENCOUNTERED WHEN TRYING TO EXECUTE AN I/O OPERATION. j 

XXX DEFINES THE UNIT ADDRESS AND Y—Y DEFINES THE CHANNEL 

ADDRESS WORD DATA. THE PROGRAM WILL LOOP FOR 20 SECONDS TO 1 

ALLOW THE UNIT TO BE MADE READY. THE MESSAGE WILL BE REPEATED 
EVERY 20 SECONDS IF THE CONDITION IS NOT RECTIFIED. 

-ORIGINAL CONTENTS OF UCS BUFFER FOR PRINTER- | 

-XXX DESTROYED, RESTORE WITH PROGRAM F837 - \ 

? 

ABOVE MESSAGE IS INDICATED BY ROUTINE OVERLAY 04. XXX 
INDICATES THE ADDRESS OF THE PRINTER WHICH REQUIRES ITS 
UCS BUFFER TO BE RESTORED. THIS MESSAGE IS INDICATED FOR 
EACH PRINTER TESTED BY F80C AND F8GD. 

4.3 ERROR MESSAGES f 

4.3.1 ERROR MESSAGES COMMON TO ALL ROUTINES. j 

-BYPASSED-UCS NOT DEFINED- 

ABOVE MESSAGE WILL BE PRINTED IF THE TESTS ARE NOT RUN«_ | HIS , 

WILL OCCUR IF THE UDT ENTRY FOR THE PRINTER DOES NOT SPECIFY UCS. 

-I/O ADDR XXX CAW YYYYYYYY GOT CC 0 BUT NO INTERRUPT- 

ABOVE MESSAGE WILL BE PRINTED IF NO INTERRUPT OCCURS WITHIN 
10 SECONDS OF RECEIVING CONDITION CODE 0 TO AN I/O OPERATION. 

XXX DEFINES THE UNIT ADDRESS AND Y—Y DEFINES THE CHANNEL 
ADDRESS WORD DATA. THE PROGRAM WILL RETRY THE I/O OPERATION. 

-I/O ADDR XXX CAW YYYYYYYY GOT CC U CSW STATUS VVVV SNS ZZ- 

ABOVE MESSAGE WILL BE PRINTED WHEN CONDITION CODES 1, 2, OR 3 
ARE RECEIVED IN RESPONSE TO AN I/O OPERATION. XXX DEFINES THE 
UNIT ADDRESS, Y—Y DEFINES THE CHANNEL ADDRESS .WORD DATA, 

U DEFINES THE CONDITION CODE —1, 2, OR 3—, VVVV DEFINES THE 
DEVICE AND CHANNEL STATUS, AND ZZ DEFINES THE SENSE DATA. 

THE PROGRAM WILL RETRY THE I/O OPERATION. 

4.3.2 ERROR MESSAGES COMMON ONLY TO ROUTINE 01 >—CONTROL PROGRAM— 

-ERR 001- 
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SYNC CHECK PROBLEM - PROBABLY AN ADVANCE BY 2 PROBLEM OR A 
BAR UNITS ENCODE ADVANCE BY 3 PROBLEM 


WRONG CSW RESIDUAL COUNT - PROBABLY A BAR ADVANCE BY 1 PROBLEM 

-ERR 003- 
*** RESERVED *** 


PRINT BUFFER DATA REGISTER OR ASSOCIATED PARITY CIRCUITS PROBLEM 
-ERR 005- 

FALSE UNIT CHECK - COULD BE HAMMER CHECK ON SOLID 
-ERR 006- 

PRINT BUFFER PROBLEM 
-ERR 007- 

FALSE PRINT CHECK - COULD BE COMPARE CIRCUITS 
-ERR 008- 

FALSE EQUIPMENT CHECK 

—ERR 009- 
*** RESERVED *** 

-ERR 010- 

XNTERMITTENT BUS-IN PROBLEM 
-ERR 011- 

BUS-IN —I— BIT PROBLEM 
-ERR 012- 

BUS-IN CIRCUITS PROBLEM - PICKED UP BITS 

-ERR 013- 
FALSE DATA CHECKS 

-ERR 014- 4 

PROBLEM SETTING PLC BITS FOR BLANK CHARACTERS 

-ERR 015- 

PRINT DATA REGISTER - LOST BITS 
-ERR 016- 

PRINT BUFFER - LOST BITS 
-ERR 017- 

BUS-IN CIRCUITS PROBLEM - LOST BITS 


-ERR 018- 

INTERMITTANT HOT BITS OCCURRING 
-ERR 019- 

PRINT BUFFER PROBLEM ABOVE POSITION 1 
-ERR 020- 

PRINT BUFFER INSERT BLANK PROBLEM 

4.3.3 ERROR MESSAGES COMMON ONLY TO ROUTINE 02 —CONTROL PROGRAM— 
-ERR 021- 

FALSE UNUSUAL COMMAND SEQUENCE 
-ERR 022- 

UCS DATA REGISTER OR ASSOCIATED PARITY CIRCUITS PROBLEM 
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—ERR 023- 
UCS BUFFER PROBLEM 

-ERR 024- 

INTERMITTANT PRINT BUFFER PARITY ERROR 

-ERR 025- -I 

COMPARE PROBLEMS AND ASSOCIATED SET PLC CIRCUITS 

-ERR 026- I 

UNDEFINED INTERMITTANT ERROR -COULD BE FALSE UNIT CHECK j 

-ERR 027- f 

INTERMITTENT UCB DATA REGISTER PROBLEM,, OR INTERMITTENT 

UCB PARITY CHECK CIRCUITS PROBLEM j 

i 

-ERR 023- j 

INTERMITTANT OR FALSE ERROR \ 

-ERR 029- | 

INTERMITTANT OR FALSE PARITY CHECK \ 

-ERR 030- 

HAMMER FIRE PROBLEM 
-ERR 031- 

BAD UCS BUFFER CORE ABOVE POSITION 31 

-ERR 032- 
FALSE DATA CHECK 

-ERR 033- 
FALSE UNIT CHECK 

-ERR 034- | 

FALSE PRINT CHECK j 

-ERR 035- 

FALSE EQUIPMENT CHECK ‘ 

! 

-ERR 036- | 

WRONG CCW RESIDUAL COUNT - PROBABLE BAR ADVANCE PROBLEM - UCB 

-ERR 037- I 

SYNC CHECK PROBLEM- PROBABLE ADVANCE BY 2 PR03LEM OR 

BAR UNITS ENCODE ADVANCE BY 3 PROBLEM j 

-ERR 033- | 

PLC INHIBIT CIRCUITS PROBLEM j 

4.3*4 ERROR MESSAGES COMMON ONLY TO ROUTINE 03 — PRINT BUFFER ! 

DATA REG FLT— f 

-NO DATA TRANSFERRED BY DIAGNOSTIC CHECK READ FOR DEVICE XXX- \ 

THE ABOVE PRINTOUT INDICATES A DIAGNOSTIC CHECK READ FAILURE* > 

XXX WILL INDICATE THE DEVICE I/O ADDRESS. 

-ERR 050- 

ALL PRINT BUFFER DATA REG TRIGGERS NEVER ACTIVE - PROBLEM MAY 
BE IN FOLLOWING AREAS. ' 

1. PRINT BUFFER DATA REG RESET ALWAYS ACTIVE, CLOCK 0-2. 

LOGIC PAGE 33.33*44.1 ; 

CIRCUITS - A4C09, A4C11, A4C06, A4E19 


2. BUFFER ENTRY ON LINE NEVER ACTIVE. 
LOGIC PAGE 33.33.44.1 
CIRCUITS - A4C10, A4C06 


16JUN65 
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-ERR 051- 

ALL PRINT BUFFER DATA REG TRIGGERS ALWAYS ACTIVE— PRINT BUFFER 
DATA REG RESET NEVER ACTIVE, CLOCK 0-2. 

LOGIC PAGE 33.33.44.1 
CIRCUITS - A4C09, A4C11, A4C06 

-ERR 052- ' . 

PRINT BUFFER DATA REG 0 TRIGGER NEVER ACTIVE —BUS OUT 0— 

LOGIC PAGE 43.34.18.1 , 

CIRCUITS - A4F02, A4G0U A4F01 

-ERR 053- 

PRINT BUFFER DATA REG 0 TRIGGER ALWAYS ACTIVE —BUS OUT 0— 

LOGIC PAGE 43.34.18.1 

CIRCUITS - A4F02, A4G01, A4F01, A4H02 

-ERR 054- 

PRINT BUFFER DATA REG 1 TRIGGER NEVER ACTIVE —BUS OUT 1— 

LOGIC PAGE 43.34.18.1 
CIRCUITS - A4G02, A4G01, A4F01 

-ERR 055- 

PRINT BUFFER DATA REG 1 TRIGGER ALWAYS ACTIVE —BUS OUT 1— 

LOGIC PAGE 43.34.18.1 

CIRCUITS - A4G02, A4G01, A4F01, A4H02 

-ERR 056- 

PRINT BUFFER DATA REG B TRIGGER NEVER ACTIVE —BUS OUT 2— 

LOGIC PAGE 33.23.06.1 

CIRCUITS - A4E07, A4G06, A4F09, A4F11 

LOGIC PAGE 31.11.37.1 

CIRCUITS - A1F13, A1H12 

-ERR 057- 

PRINT BUFFER DATA REG B TRIGGER ALWAYS ACTIVE —BUS OUT 2— 

LOGIC PAGE 33.23.06.1 

CIRCUITS - A4E07, A4G06, A4F09, A4F11, A4H06 
LOGIC PAGE 31.11.37.1 
CIRCUITS - A1F13, A1H12 

-ERR 058- 

PRINT BUFFER DATA REG A TRIGGER NEVER ACTIVE —BUS OUT 3— 

LOGIC PAGE 33.23.06.1 

CIRCUITS - A4E08, A4F06, A4FC9, A4F11 

LOGIC PAGE 31.11.37.1 

CIRCUITS - AIF 14, A1H15, A1H12 

-ERR 059- 

PRINT BUFFER DATA REG A TRIGGER ALWAYS ACTIVE —BUS OUT 3— 

LOGIC PAGE 33.23.06.1 

CIRCUITS - A4E08, A4FQ6, A4F09, A4F11, A4H06 
LOGIC PAGE 31.11.37.1 
CIRCUITS - A1F14, A1H15, A1H12 

-ERR 060- 

PRINT BUFFER DATA REG 8 TRIGGER NEVER ACTIVE —BUS OUT 4— 

LOGIC PAGE 33.23.06.1 

CIRCUITS - A4E08, A4G07, A4F10, A4F11 

-ERR 061- 

PRINT BUFFER DATA REG 8 TRIGGER ALWAYS ACTIVE —BUS OUT 4— 

LOGIC PAGE 33.23.06.1 

CIRCUITS - A4E08, A4G07, A4F10, A4F11, A4H07 
-ERR 062- 

PRINT BUFFER DATA REG 4 TRIGGER NEVER ACTIVE —BUS OUT 5— 

LOGIC PAGE 33.23.05.1 

CIRCUITS - A4E09, A4F07, A4F10, A4F11 
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LOGIC PAGE 31.11.32,1 
CIRCUITS - A1F14, A1F13 

—ERR 063- 

PRINT BUFFER DATA REG 4 TRIGGER ALWAYS ACTIVE —BUS OUT 5— 

LOGIC PAGE 33.23.05.1 

CIRCUITS - A4E09, A4F07, A4F10, A4F11, A4H07 
LOGIC PAGE 31.11.32.1 
CIRCUITS - A1F14, A1F13 

-ERR 064- { 

PRINT BUFFER DATA REG 2 TRIGGER NEVER ACTIVE —BUS OUT 6— 

LOGIC PAGE 33.23.05.1 

CIRCUITS - A4E09, A4G08, A4F10, A4F12 j 

-ERR 065- 

PRINT BUFFER DATA REG 2 TRIGGER ALWAYS ACTIVE —BUS OUT 6— j 

LOGIC PAGE 33.23.05.1 

CIRCUITS - A4E09, A4G08, A4F10, A4F12, A4H08 

I 

-ERR 066- ! 

PRINT BUFFER DATA REG 1 TRIGGER NEVER ACTIVE —BUS OUT 7**- \ 

LOGIC PAGE 33.23.05.1 j 

CIRCUITS - A4E10, A4F08, A4F10* A4F12 5 

LOGIC PAGE 31.11.33.1 j 

CIRCUITS - A1F13, A1H14* A1H13 ; 

-ERR 067- . I 

PRINT BUFFER DATA REG 1 TRIGGER ALWAYS ACTIVE —BUS OUT 7-- 5 

LOGIC PAGE 33.23.05.1 \ 

CIRCUITS - A4E10, A4F08, A4F10, A4F12, A4H08 \ 

LOGIC PAGE 31.11.33.1 l 

CIRCUITS - A1F13, A1H14, A1H13 | 

-ERR 068- f 

PRINT BUFFER DATA REG C TRIGGER NEVER ACTIVE —BUS OUT P— | 

LOGIC PAGE 33.23.07.1 1 

CIRCUITS - A4E07, A4FG5, A4F09, A4F12, A4C11 

LOGIC PAGE 33.33.44.1 
CIRCUITS - A4C05, A4C08 
LOGIC PAGE 31.11.33.1 

CIRCUITS - A1B18, A1G14, A1H14 \ 

-ERR 069- 

PRINT BUFFER DATA REG C TRIGGER ALWAYS ACTIVE — BUS OUT P— 

LOGIC PAGE 33.23.C7.1 

CIRCUITS - A4E07, A4F05, A4F09, A4F12 f A4Cllt A4H05 

LOGIC PAGE 33.33.44.1 ! 

CIRCUITS - A4C05, A4C08 
LOGIC PAGE 31.11.33.1 
CIRCUITS - A1B18, A1G14, A1H14 

-ERR 070- 

FALSE PRINT BUFFER DATA REG PARITY ERRORS 

LOGIC PAGE 33.23.10.1 

CIRCUITS - ALL ON ABOVE LOGIC PAGE 

LOGIC PAGE 43.34.18.1 

CIRCUITS - A4B09* A4A10, A4B08 

4.3.5 ERROR MESSAGES COMMON ONLY TO ROUTINE 04 —UCB DATA REG FLT— 

-NO DATA TRANSFERRED BY DIAGNOSTIC CHECK READ FOR DEVICE XXX- 

THE ABOVE PRINTOUT INDICATES A DIAGNOSTIC CHECK READ FAILURE. 

XXX WILL INDICATE THE DEVICE I/O ADDRESS. 

-ERR 080- 

FALSE UCB DATA REG PARITY ERRORS 


DATE 16JUN65 22JUN65 15JUL65 15DEC65 15HAR66 15NCV66 ID F8CC-* 
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LOGIC PAGE 43.34.36.1 
CIRCUITS - A2D06, A2D08, A2D07 
LCGIC PAGE 43.34.37.1 

CIRCUITS - A2D05* A2D16, A2H22, A2F24, A2D08t A2E22 
-ERR 081- 

UCB DATA REG PARITY BIT ALWAYS ACTIVE 
LOGIC PAGE 43.34.33.1 
CIRCUITS - A2G05, A2E05, A2H05 

-ERR 082- 

UCB DATA REG PARITY BIT NEVER ACTIVE 
LOGIC PAGE 43.34.33.1 
CIRCUITS - A2G05* A2E05 

-ERR 083- 

FALSE UCB PARITY ERROR WITH UCB DATA REG 0 BIT ACTIVE 

LOGIC PAGE 43.34.36.1 

CIRCUITS - A2D07, A2D08, A2D06 

LOGIC PAGE 43.34.37.1 

CIRCUITS - A2D05, A2E22 

-ERR 084 

FALSE UCB PARITY ERROR WITH UCB DATA REG 2 BIT ACTIVE 

LOGIC PAGE 43.34.36.1 

CIRCUITS - A2D07j A2D08, A2D06 

LOGIC PAGE 43.34.37.1 

CIRCUITS - A2D0S, A2E22 

-ERR 085- 

FALSE UCB PARITY ERROR WITH UCB DATA REG 3 BIT ACTIVE 

LOGIC PAGE 43.34.36.1 

CIRCUITS - A2D07, A2D08, A2D06 

LOGIC PAGE 43.34.37.1 

CIRCUITS - A2D05, A2E22 

-ERR 086- 

FALSE UCB PARITY ERROR WITH UCS DATA REG 4 BIT ACTIVE 

LOGIC PAGE 43.34.36.1 

CIRCUITS - A2D07, A2DQ8* A2D06 

LOGIC PAGE 43.34.37.1 

CIRCUITS - A2D05, A2E22 

-ERR 087- 

FALSE UCS PARITY ERROR WITH UCB DATA REG 5 BIT ACTIVE 

LOGIC PAGE 43.34.36.1 
CIRCUITS “ A2DG7, &2DG3, A2DC6 
LOGIC PAGE 43.34.37.1 
CIRCUITS - A2D05* A2E22 

-ERR 088- 

FALSE UCB PARITY ERROR WITH UCB DATA REG 6 BIT ACTIVE 

LOGIC PAGE 43.34.36.1 

CIRCUITS - A2D07, A2D08, A2D06 

LOGIC PAGE 43.34.37.1 

CIRCUITS - A2D05, A2E22 

-ERR 089- 

FALSE UCB PARITY ERROR WITH UCB DATA REG 7 BIT ACTIVE 

LOGIC PAGE 43.34.36.1 

CIRCUITS - A2D07, A2D08, A2D06 

LOGIC PAGE 43.34.37.1 

CIRCUITS “ A2D05, A2E22 

-ERR 090“ 

FALSE UCB PARITY ERROR WITH UCB DATA REG P BIT ACTIVE 



LOGIC PAGE 43.34.37.1 
CIRCUITS “ A2DG5, A2E22 
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-ERR 091- 

FALSE UCB PARITY ERROR WITH UCB DATA REG 1 BIT ACTIVE 

LOGIC PAGE 43.34.36,1 

CIRCUITS - A2D07, A2D08, A2D06 

LOGIC PAGE 43.34.37.1 

CIRCUITS - A2D05, A2E22 

-ERR 092- 

NEVER GETTING UCB DATA REG RESET f 

LOGIC PAGE 43.34.11.1 f 

CIRCUITS - A2G21, A2E22, A2E23 I 

LOGIC PAGE 43.34.12.1 1 

CIRCUITS - A2D21 j 

-ERR 093- 1 

UCB DATA REG 0 BIT ALWAYS ACTIVE { 

LOGIC PAGE 43.34.35.1 1 

CIRCUITS - A2G04, A2E08, A2H04 1 

-ERR 094- ! 

UCS DATA REG 1 BIT ALWAYS ACTIVE* ! 

LOGIC PAGE 43.34.35.1 f 

CIRCUITS - A2FG4, A2EQ8, A2H04 ! 

-ERR 095- | 

UCS DATA REG 2 BIT ALWAYS ACTIVE \ 

LOGIC PAGE 43.34.35.1 1 

CIRCUITS - A2G03, A2E07, A2H03 -| 

-ERR 096- [ 

UCB DATA REG 3 BIT ALWAYS ACTIVE 

LGGIC PAGE 43.34.34.1 ( 

CIRCUITS - A2F03, A2EQ7, A2H03 1 

f 

-ERR 097- ) 

UCB DATA REG 4 BIT ALWAYS ACTIVE 
LOGIC PAGE 43.34.34.1 

CIRCUITS - A2G02, A2E06, A2H02 I 

-ERR 098- \ 

UCB DATA REG 5 BIT ALWAYS ACTIVE I 

LOGIC PAGE 43.34.34.1 ’ § 

CIRCUITS - A2FG2, A2EQ6, A2H02 | 

-ERR 099- i 

UCB DATA REG 6 BIT ALWAYS ACTIVE | 

LOGIC PAGE 43.34*33. 1 

CIRCUITS - A2G01, A2E05, A2HC1 

-ERR 100- 

UCB DATA REG 7 BIT ALWAYS ACTIVE 

LOGIC PAGE 43.34.33.1 : 

CIRCUITS - A2F01, A2E19, A2H01 

-ERR 101- f 

NOT GETTING UCB DATA REG SET OR UCB DATA REG RESET ALWAYS ACTIVE 
LOGIC PAGE 43.34.33.1 
CIRCUITS - A2G21, A2F24, A2G24, A2E24 

LOGIC PAGE 43.34.11.1 ! 

CIRCUITS - A2G21, A2E22, A2E23 J 

-ERR 102- ' | 

UCB DATA REG 0 BIT NEVER ACTIVE 

LOGIC PAGE 43*34*35* 1 ■ 

CIRCUITS - A2GC4, A2E08 • I 

| 

-ERR 103- ' £ 
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UCB DATA REG 2 BIT NEVER ACTIVE 
LOGIC PAGE 43.34.35.1 
CIRCUITS - A2G03, A2E07 

-ERR 104- 

UCB DATA REG 3 BIT NEVER ACTIVE 
LOGIC PAGE 43.34.34.1 
CIRCUITS * A2F03, A2E07 

-ERR 105- 

UCB DATA REG 4 BIT NEVER ACTIVE 
LOGIC PAGE 43.34.34.1 
CIRCUITS - A2G02, A2E06 

-ERR 106- 

UCB DATA REG 5 BIT NEVER ACTIVE 
LOGIC PAGE 43.34.34.1 
CIRCUITS - A2F02, A2E06 

-ERR 107- 

UCB DATA REG 6 BIT NEVER ACTIVE 
LOGIC PAGE 43.34.33.1 
CIRCUITS - A2G01, A2E05 

-ERR 108- 

UCB DATA REG 7 BIT NEVER ACTIVE 
LOGIC PAGE 43.34.33.1 
CIRCUITS - A2F01, A2E05, A2E19 

-ERR 109- 

UCB DATA REG 1 BIT NEVER ACTIVE 
LOGIC PAGE 43.34.35.1 
CIRCUITS - A2F04, A2E08 

-ERR 110- 

PLC OR COMPARE PROBLEM -PRESS INTERRUPT TO SELECT REQUIRED FLT 
-ERR 111- 

FALSE UCB PARITY ERROR WITH ALL UCB DATA REG BITS ACTIVE 
LOGIC PAGE 43.34.36.1 
CIRCUITS - A2D06, A2D08, A2D07 
LOGIC PAGE 43.34.37.1 

. CIRCUITS - A2D05, A2D16, A2H22, A2F24, A2D08, A2E22 

4.4 LOG OUT OF ACCUMULATED DATA BY ROUTINE 

4.4.1 ROUTINES 01 AND 02—CONTROL PROGRAM- 

LISTED BELOW IS A SAMPLE OF THE LOG OUT INFORMATION. THE 
DATA IS PRESENTED IN HEX FORM, 4 BITS PER CHARACTER. THIS 
SAMPLE REPRESENTS THE DATA ACCUMULATED WITH A HOT DATA 
REG 6 BIT. 

THE FIRST FOUR ROWS SHOW THE DATA IN THE WRITE AREA-ALL NULLS. 

THE FIFTH ROW SHOWS THE CHANNEL END STATUS, DEVICE END 
STATUS, COMBINATION OF CHANNEL END AND DEVICE END STATUS, 

AND THE SENSE DATA. ROWS 6,7,8, £ 9 SHOW THE CHECK READ DATA. 

THE 7 BITS —01— SHOW ALL PARITY ERRORS OCCURRED. THE LAST 
FOUR LINES SHOW DATA READ BACK FROM BUFFER —ALL 6 BITS—. 

000000000000000000000000000000000000000000000000000000000000000000 

oooooooooooooooooooooooooooocooooooooooooooooooooooooooooooooooooo 

oooooooooooooooooooooooooooooooocooooooooooooooooooooooooooooooooo 

000000000000000000000000000000000000000000000000000000000000000000 

0A161E10 

010101010101010101010101010101010101010101010101010101010101010101 

OIOIOIOIOIOIOIOIOIOIOIOIOIOIOIOIOIOIOIOIOIOIOIOIOIOIOIOIOIOIOIOIOI 

OlOIOlOlOlOlOlOlOlOlOlOlOlOlOlOlOlOlOlOIOiOlOlOlOlOlOlOlOlOlOlOlOl 


DATE 16JUN65 22JUN65 15JUL65 15DEC65 15MAR66 15N0V66 ID F80C-* 

EC 124263 124249 124265 125601 125632 125655 PAGE 6A 





IBM MAINTENANCE DIAGNOSTIC PROGRAM 


c cccccccc 


P/N 840222 
PAGE 7 

2821 - 1403 UCS SCAN 


i 010101010101010101010101010101010101010101010101010101010101010101 

j 020202020202020202020202020202020202020202020202020202020202020202 

] 020202020202020202020202020202020202020202020202020202020202020202 

I 020202020202020202020202020202020202020202020202020202020202020202 

i 020202020202020202020202020202020202020202020202020202020202020202 

! **NOTE** AT TIMES LINES 6 THRU 13 OF THE ABOVE LOG OUT 

; WILL NOT BE PRINTED* THIS OCCURS BECAUSE 

| THIS DATA HAS NOT BEEN COLLECTED. 

I 

l 4 . 4.2 ROUTINE 03—PRINT BUFFER DATA REG FLT— 

LISTED BELOW IS A SAMPLE OF THEj LOG OUT INFORMATION FOR 
ROUTINE 03. THE DATA IS PRESENTED IN HEX FORM* 4 BITS 
PER CHARACTER. THIS SAMPLE REPRESENTS THE DATA 
ACCUMULATED FOR ERROR 062 — PRINT BUFFER DATA REG TRIG 
4* BUS OUT 5 BIT* NEVER ACTIVE —. 

COL 1 2 3 4 5 6 7 8 9 

80 08 14 00 00 80 OC 00 00 

40 08 14 00 04 40 OC 00 04 

20 08 14 00 00 20 OC 00 00 

10 08 14 00 00 10 OC 00 00 

08 08 14 00 00 08 OC 00 00 

04 OA 16 10 05 00 OE 10 05 — ERROR DETECTED THIS ROW — 

02 08 14 00 00 02 OC 00 00 

01 08 14 00 00 01 OC 00 00 

00 08 14 00 04 00 OC 00 04 

FF OA 16 10 01 FB OE 10 01 

THE ABOVE TABLE IS DEFINED BELOW. 

COLUMN 1 - DATA WRITTEN BY DIAGNOSTIC WRITE 
COLUMN 2 - DIAGNOSTIC WRITE CHANNEL-END DEVICE STATUS 
COLUMN 3 - DIAGNOSTIC WRITE DEVICE-END DEVICE STATUS 
COLUMN 4 - SENSE DATA AFTER DIAGNOSTIC WRITE 
COLUMN 5 - FIRST BYTE OF SECOND DIAGNOSTIC CHECK READ 
< DATA - OBTAINED AFTER DIAGNOSTIC WRITE 

COLUMN 6 - FIRST BYTE OF DIAGNOSTIC READ DATA 
l COLUMN 7 - DIAGNOSTIC READ DEVICE-END DEVICE STATUS 

1 COLUMN 8 - SENSE DATA AFTER DIAGNOSTIC READ 

: COLUMN 9 - FIRST BYTE OF SECOND DIAGNOSTIC CHECK READ 

j DATA - OBTAINED AFTER DIAGNOSTIC READ 

j . 4.4.3 ROUTINE 04—UCB DATA REG FLT— 

} LISTED BELOW IS A SAMPLE OF THE LOG OUT INFORMATION FOR 

! ROUTINE 04. THE DATA IS PRESENTED IN HEX FORM, 4 BITS 

i PER CHARACTER. THIS DATA REPRESENTS THE DATA ACCUMULATED 

j TO DETECT ERROR 097 —UCB DATA REG 4 BIT ALWAYS ACTIVE—. 

1 COL 123456789 

! 

! 80 IE 14 04 80 08 16 14 00 

! 20 IE 14 00 20 08 16 14 00 

j 10 IE 14 00 10 08 16 14 00 

s 08 1C 00 00 08 08 14 00 04 —ERROR DETECTED THIS ROW.— 

1 04 IE 14 04 04 08 16 14 00 

l 02 IE 14 00 02 08 16 14 00 

) 01 16 14 00 01 08 16 14 00 

( 00 IE 14 00 08 08 16 14 04 

{ • 48 1C 00 00 48 08 14 00 04 

i ' FF 1C 00 00 FF 08 14 00 04 

i 

I THE ABOVE TABLE IS DEFINED BELOW. 

{ COLUMN 1 - DATA WRITTEN BY LOAD UCB COMMAND 

i COLUMN 2 - LOAD UCB COMMAND DEVICE-END DEVICE STATUS 

I COLUMN 3 - SENSE DATA AFTER LOAD UCB COMMAND 
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COLUMN 4 - FIRST BYTE OF SECOND DIAGNOSTIC CHECK READ 
DATA - OBTAINED AFTER LOAD UCB COMMAND 
COLUMN 5 - DATA WRITTEN BY DIAGNOSTIC WRITE 
COLUMN 6 - DIAGNOSTIC WRITE CHANNEL-END DEVICE STATUS 
COLUMN 7 - DIAGNOSTIC WRITE DEVICE-END DEVICE STATUS 
COLUMN 8 - SENSE DATA AFTER DIAGNOSTIC WRITE 
COLUMN 9 - FIRST BYTE OF SECOND DIAGNOSTIC CHECK READ 
DATA - OBTAINED AFTER DIAGNOSTIC WRITE 

5. COMMENTS 

5.1 PROGRAM PHILOSOPHY AND ASSOCIATED COMMENTS 

THE BASIC PHILOSOPHY EMPLOYED BY THIS PROGRAM IS TO -FIRST- 
AREA ISOLATE A SOLID DATA PATH FAILURE WITHIN THE 2821/1403 UCS 
ATTACHMENT, AND —SECOND— FURTHER ISOLATE THE FAILURE TO 
PARTICULAR CIRCUIT-S-. IN ORDER TO UTILIZE THIS PHILOSOPHY W1TM 
THE EXISTING MAIN STORAGE SIZE LIMITATIONS, IT WAS NECESSARY TO 
EMPLOY THE PROGRAM OVERLAY CONCEPT. EACH OVERLAY —ROUTINE- 
IS DESCRIBED IN DETAIL BELOW 

5.2 DESCRIPTION — ROUTINES 01 AND 02, CONTROL PROGRAM. — 

THE PRIMARY OBJECTIVE OF THESE ROUTINES IS TO AREA ISOLATE A 
SOLID FAILURE IN THE 1403 UNIVERSAL CHARACTER SET DATA PATHS 
WITHIN THE 2821. THESE AREAS ARE DEFINED BELOW— 

1. PRINT BUFFER DATA REGISTER 

2. PRINT BUFFER 

3. PRINT BUFFER ADDRESS REGISTER 

4. UCS BUFFER DATA REGISTER 

5. UCS BUFFER 

6 . UCS BUFFER ADDRESS REGISTER 

7. COMPARE CIRCUITS 

8. PLC CIRCUITS 

9. ERROR CHECKING CIRCUITS WHEN FALSE 

ROUTINE 01 1$ CONCERNED WITH AREA ISOLATING FAILURES ASSOCIATED 
WITH THE PRINT BUFFER. THIS OBJECTIVE IS ACCOMPLISHED 
BY INVESTIGATING THE NINE COMMON DATA LINES — P , 0* 1, 2* 3* 4* 
5, 6* 7— IN THE 1403 UNIVERSAL CHARACTER SET DATA PATH, WITHOUT 
ATTEMPTING TO USE THE UNIVERSAL CHARACTER BUFFER. WITH EACH OF 
THESE LINES MADE ACTIVE, THE FOLLOWING SEQUENCE OF OPERATIONS 
IS PERFORMED— 


1. WRITE PRINT BUFFER 

A. SAVE STATUS 

B. SAVE SENSE DATA 

2. DIAGNOSTIC CHECK READ 

3. READ PRINT BUFFER 

THE DATA IS INTERROGATED AS ACCUMULATED BY AN ANALYSIS ROUTINE. 

AN OUTPUT MESSAGE WILL INDICATE THE RESULTS OF THIS ANALYSIS 
AS AN ERROR NUMBER OR NO ERRORS FOUND. IF AN ERROR NUMBER IS 
INDICATED, THE C.E. MUST REFER TO EITHER THE PROGRAM DESCRIPTION* 
OR THE PROGRAM LISTING TO DETERMINE THE ANALYSIS RESULTS. 

IF THE CORRESPONDING CARD ISOLATION OVERLAY IS AVAILABLE, THE 
PROGRAM WILL AUTOMATICALLY SEARCH FOR IT AND EXECUTE IT IN 
ORDER TO OBTAIN FURTHER ISOLATION. 

ROUTINE 02 IS CONCERNED WITH AREA ISOLATING FAILURES ASSOCIATED 
WITH THE UNIVERSAL CHARACTER BUFFER. THIS OBJECTIVE IS 
ACCOMPLISHED BY INVESTIGATING THE 9 COMMON DATA LINES — P, 0, 
1*2,3,4,5, 6 ,7— IN THE UCS BUFFER* ASSUMING THE PRINT DATA 
BUFFER CIRCUITS ARE OPERATIONAL • WITH EACH OF THESE LINES 
MADE ACTIVE, THE FOLLOWING SEQUENCE OF OPERATIONS IS PERFORMED-— 


1« LOAD UCS BUFFER 
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A. SAVE STATUS 

B. SAVE SENSE DATA 
2* DIAGNOSTIC WRITE 

A. SAVE STATUS 

B. SAVE SENSE DATA 
3. DIAGNOSTIC CHECK READ 

THE DATA IS INTERROGATED AS ACCUMULATED BY AN ANALYSIS ROUTINE. 

AN OUTPUT MESSAGE WILL INDICATE THE RESULTS OF THIS ANALYSIS 
AS AN ERROR NUMBER OR NO ERRORS FOUND. IF AN ERROR NUMBER IS 
INDICATED, THE C.E. MUST REFER TO EITHER THE PROGRAM DESCRIPTION, 
OR THE PROGRAM LISTING TO DETERMINE THE ANALYSIS RESULTS. 

IF THE CORRESPONDING CARD ISOLATION OVERLAY IS AVAILABLE, THE 
PROGRAM WILL AUTOMATICALLY SEARCH FOR IT AND EXECUTE IT IN 
ORDER TO OBTAIN FURTHER ISOLATION. IT IS TO BE NOTED THAT IF 
ROUTINE 01 DETECTS A SOLID FAILURE IN THE PRINT BUFFER AND 
ASSOCIATED CIRCUITS, ROUTINE 02 WILL BE BYPASSED — ROUTINE 02 
WILL BE RUN ONLY WHEN NO FAILURES ARE DETECTED BY ROUTINE 01. 

IN ADDITION TO THE PRINTOUT OF THE RESULTS OF THE ANALYSIS, A 
PRINTOUT OF THE ACCUMULATED DATA LAST USED CAN BE MADE BY SETTING 
SECTION SENSE SWITCH 02 TO 1 PRIOR TO RUNNING THE ROUTINE OR 
AFTER THE ANALYSIS PRINTOUT * THIS OPTION IS ONLY AVAILABLE WHEN 
AN ERROR IS DETECTED BY THE ROUTINE. 

5.3 DESCRIPTION — ROUTINE 03, PRINT BUFFER DATA REG FLT — 

*** NOTE *** THIS ROUTINE WILL BE RUN ONLY WHEN ROUTINE 01 
DETECTS A FAILURE WITHIN THE PRINT BUFFER DATA 
REGISTER AREA —OTHERWISE, IT WILL BE BYPASSED. 

THE OBJECTIVE OF THIS ROUTINE IS TO CIRCUIT ISOLATE A SOLID 
FAILURE WITHIN THE PRINT BUFFER DATA REGISTER COMPLEX — 2821 
UCS ATTACHMENT —. THIS OBJECTIVE IS ACCOMPLISHED BY ATTEMPTING 
TO SEPARATELY ACTIVATE EACH OF THE DATA REGISTER TRIGGERS — P, 
0,1,2 THROUGH 9 — . THIS IS DONE BY USING THE APPROPRIATE 
WRITE DATA —I.E, HEX WRITE DATA 00 IS USED TO ACTIVATE ONLY THE 
P TRIGGER, HEX WRITE DATA 80 IS USED TO ACTIVATE ONLY THE 0 
TRIGGER —ETC. FOR EACH PRINT BUFFER DATA REGISTER TRIGGER, 

THE FOLLOWING SEQUENCE OF OPERATIONS IS PERFORMED, AND ALL 
ASSOCIATED DATA IS SAVED IN MAIN STORAGE. 

1. DIAGNOSTIC WRITE - CCW COUNT EQUAL TWO 

A. SENSE I/O IF GOT UNIT CHECK 

2. TWO SUCCESSIVE DIAGNOSTIC CHECK READS - FIRST BYTE 

GF SECOND READ ONLY IS SAVED 

3. DIAGNOSTIC READ OF PRINT BUFFER - CCW COUNT EQUAL ONE 

A. SENSE I/O IF GOT UNIT CHECK 

4. TWO SUCCESSIVE DIAGNOSTIC CHECK READS - FIRST BYTE 

OF SECOND READ ONLY IS SAVED 

AFTER ALL DATA HAS BEEN ACCUMULATED, IT IS INTERROGATED BY AN 
ANALYSIS ROUTINE. THIS ROUTINE IDENTIFIES A FAILURE WITHIN THE 
PRINT BUFFER DATA REGISTER CIRCUITS WHEN THE FOLLOWING CONDITIONS 
EXIST. 

1. GOT UNIT CHECK WITH CHANNEL END FOR DIAGNOSTIC WRITE. 

2. GOT PRINT SUFFER DATA REG PARITY FOR DIAGNOSTIC CHECK 
READ AFTER DIAGNOSTIC WRITE. 

3. GOT ADDITIONAL BITS OR MISSING BITS WITH 
DIAGNOSTIC READ. 

AN OUTPUT MESSAGE WILL INDICATE THE RESULTS OF THE ANALYSIS 
ROUTINE AS AN ERROR NUMBER OR NO ERRORS DETECTED. IF AN ERROR 
NUMBER IS INDICATED, THE C.E. MUST REFER-TO THE PRINTOUT 
SECTION OF THIS DESCRIPTION TO DETERMINE THE ANALYSIS RESULTS. 

IN ADDITION TO THE PRINTOUT OF THE RESULTS OF THE ANALYSIS, A 
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PRINTOUT OF THE ACCUMULATED DATA CAN BE MADE BY SETTING 
SECTION SENSE SWITCH 02 TO 1 PRIOR TO RUNNING THE ROUTINE OR 
AFTER THE ANALYSIS PRINTOUT. 

5.4 DESCRIPTION — ROUTINE 04, UCB DATA REG FLT — 

*** NOTE *** THIS ROUTINE WILL BE RUN ONLY WHEN ROUTINE 02 
DETECTS A FAILURE WITHIN THE UCB DATA REGISTER 
AREA —OTHERWISE, IT WILL BE BYPASSED. 

THE OBJECTIVE OF THIS ROUTINE IS TO CIRCUIT ISOLATE A SOLID 
FAILURE WITHIN THE UCB DATA REGISTER AREA. THIS OBJECTIVE IS 
ACCOMPLISHED BY ATTEMPTING TO SEPARATELY ACTIVATE EACH UCB DATA 
REGISTER TRIGGER —THEN, PERFORM A DIAGNOSTIC WRITE TO DETERMINE 
THE STATE —ON OR OFF— OF THE TRIGGER. THE ATTEMPT TO 
ACTIVATE EACH TRIGGER IS ACCOMPLISHED BY PERFORMING A LOAD UCB 
COMMAND WITH THE APPROPRIATE WRITE DATA —IE, HEX WRITE DATA 00 
IS USED TO ACTIVATE ONLY THE P TRIGGER, HEX WRITE DATA 80 IS 
USED TO ACTIVATE ONLY THE 0 TRIGGER —ETC. FOR EACH UCB DATA 
REGISTER TRIGGER THE FOLLOWING SEQUENCE OF OPERATIONS IS 
PERFORMED, AND ALL ASSOCIATED DATA IS SAVED IN MAIN STORAGE. 

1. GATE UCS LOAD CCW COMMAND-CHAINED TO A LOAD UCB CCW 

A. SENSE I/O IF GOT UNIT CHECK 

2. TWO SUCCESSIVE DIAGNOSTIC CHECK READS - FIRST BYTE 
OF SECOND READ ONLY IS SAVED 

3. DIAGNOSTIC WRITE 

A. SENSE I/O IF GOT UNIT CHECK 

4. TWO SUCCESSIVE DIAGNOSTIC CHECK READS - FIRST BYTE OF 
SECOND READ ONLY IS SAVED 

AFTER ALL DATA HAS BEEN ACCUMULATED, IT IS INTERROGATED BY AN 
ANALYSIS ROUTINE.. THIS ROUTINE IDENTIFIES A FAILURE WITHIN THE 
UCB DATA REGISTER CIRCUITS WHEN THE FOLLOWING CONDITIONS EXIST. 

1. GOT UNIT CHECK WITH CHANNEL END FOR LOAD UCB CCW 

2. GOT UCB PARITY DURING LOAD UCB COMMAND 

3. DID NOT GET PLC DURING DIAGNOSTIC WRITE 

AN OUTPUT MESSAGE WILL INDICATE THE RESULTS OF THE ANALYSIS 
ROUTINE AS AN ERROR NUMBER OR AS NO ERRORS DETECTED. IF AN 
ERROR NUMBER IS INDICATED, THE C.E. MUST REFER TO THE PRINTOUT 
SECTION OF THIS DESCRIPTION TO DETERMINE THE ANALYSIS RESULTS. 

IN ADDITION TO THE PRINTOUT OF THE RESULTS OF THE ANALYSIS, A 
PRINTOUT OF THE ACCUMULATED DATA CAN BE MADE BY SETTING SECTION 
SENSE SWITCH. 02 TO 1 PRIOR TO RUNNING THE ROUTINE OR AFTER THE 
ANALYSIS PRINTOUT. 

6. APPENDIX 

6.1 UCS PRINTER COMMAND CODES 

* 

* VALID COMMANDS TO THE UCS PRINTER. NOT SHOWING SPACE, SKIP, 

* OR OTHER VARIOUS OPTIONS THAT ARE AVAILABLE. 

* 

* FUNCTION COMMAND CODE BITS HEX CODE 


❖ 




0 

1 

2 

3 

4 

5 

6 

7 



TEST I/O 



0 

0 

0 

0 

0 

0 

0 

0 . 



SENSE . 



0 

0 

0 

0 

0 

1 

0 

0 . 


❖ 

WRITE . 



0 

0 

0 

0 

0 

0 

0 

1 . 


* 

GATE UCS 

LOAD .... 


l 

1 

1 

0 

1 

0 

1 

1 . 


53* 

LOAD UCS 

NO FOLDING . 


1 

1 

1 

1 

1 

0 

1 

1 . 


❖ 

LOAD UCS 

WITH FOLDING 


1 

1 

1 

1 

0 

0 

1 

1 • 


❖ 

DIAGNOSTIC WRITE ... 


- 

- 


> 

- 

1 

0 

1 . 


* 

DIAGNOSTIC READ . . . 


0 

0 

0 

0 

0 

0 

1 

0 . 
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* DIAGNOSTIC CHECK READ .0000 0110 . 06 

* 

* WHERE - FORMS VARIATIONS ON MODIFIERS WHICH MAY BE COMBINED. 

* . 

*****^***%%**********%************************************************* 


6.2 SENSE BYTE INFORMATION 

*********4^**************************** ] |^**i|t******j|t* ) tit*]t]t l |,****,t,tit4****,j (1 |i 

* 

♦ ONE SENSE BYTE 

♦ 

* BIT MEANING 

♦ 

* 0 COMMAND REJECT > -1 

* 1 INTERVENTION REQUIRED I 

* 2 BUSS OUT CHECK I 

* 3 EQUIPMENT CHECK I—-UNIT CHECK IN STATUS 

* 4 DATA CHECK I 

* 5 UCB PARITY CHECK I 

* 6 UNUSUAL COMMAND SEQUENCE I 

* 7 CHANNEL 9 HOLE SENSED -■-1 

* 

*4^*********!Mt*****4'************«*3|^**$«******«^**4^***$***«************ 


6.3 DIAGNOSTIC CHECK READ INFORMATION 

* 

* THE DIAGNOSTIC CHECK READ COMMAND TRANSFERS CHECK INFORMATION 

* TO THE CPU. ONE BYTE OF DATA IS TRANSFERRED FOR EACH PRINT 

* BUFFER POSITION. THE SIGNALS RETURNED ARE AS FOLLOWS— 

* 

♦ BIT SIGNAL 

* 

* 0 NOT USED 

* 1 NOT USED 

* 2 NOT USED 

* 3 NOT USED 

* 4 NOT USED 

* 5 PRINT LINE COMPLETE 

* 6 PRINT CHECK 

* 7 PRINT BUFFER PARITY CHECK 

* 

************<^*******iM^:M:*:Mt*#**********i****4444*********************** 
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8005 TITLE F80C5 RESIDENT AND CONTROL ROUTINE OVERLAY l 
*********************************************************************** 
* * 

* MODIFICATIONS * 

* * 

* REVISION LEVEL 5. THIS REVISION DIFFERS FROM VERSION 4 AS * 

* FOLLOWS... * 

* * 

* 1. CONTROL PROGRAM -ROUTINE OVERLAY 01- * 

* THIS ROUTINE WAS NOT MODIFIED. * 

* 2. CONTROL PROGRAM -ROUTINE OVERLAY 02- * 

* DESCRIPTIONS OF ERROR NUMBERS 02T AND 038 WERE MODIFIED.* 

* * 

* ENGINEERING CHANGE PREREQUISITES * 

* 1. MACHINE * 

* 2821 CONTROL UNIT WITH 1403 UCS ATTACHMENT AT MINIMUM * 

* E.C. LEVEL 125655 * 

* 2. PROGRAM ♦ 

* NONE * 

* * 

* USE DESCRIPTION F80C* AT E.C. 125655* DATED ISNOV 66 OR LATER * 

* * 
*********************************************************************** 


REVISION LEVEL 4. 
FOLLOWS... 


THIS REVISION DIFFERS FROM VERSION 3 AS 


* 1« CONTROL PROGRAM - ROUTINE OVERLAY 01 * 

* THIS ROUTINE WAS MODIFIED TO TURN OFF THE DATA CHECK * 

* LATCH -ALLOW DATA CHECKS- DURING THE FIRST START I/O * 

* ISSUED BY THE ROUTINE. THIS LATCH REMAINS IN THE -OFF- * 

* STATE FOR ALL REMAINING ROUTINE OVERLAYS IN F80C AND * 

* F80D. * 

* 2. CONTROL PROGRAM. -ROUTINE OVERLAY 02- * 

* THIS ROUTINE WAS NOT MODIFIED * 

* * 

* ENGINEERING CHANGE PREREQUISITES % * 

* l. MACHINE * 

* 2821 CONTROL UNIT WITH 1403 UCS ATTACHMENT AT MINIMUM * 

* E.C. LEVEL 125632 * 

* 2. PROGRAM * 

* NONE * 

* * 

* USE DESCRIPTION F80C* AT E.C. 125632* DATED 15 MAR 66 OR LATER * 

* * 
*********************************************************************** 
XF80C5 START 4096 

USING *y15 

* 

* SECTION SENSE SWITCH USAGE 

* 


LOG OUT DATA TABLE 
PRINT TITLE 


SSW 

0, 

LOC 

X004y 

BIT 

0 

SSW 

If 

LOC 

X004, 

Bit 

1 

SSW 

2f 

LOC 

X004 » 

BIT 

2 

SSW 

6y 

LOC 

X004 » 

BIT 

6 


*********************************************************************** 
* SECTION PREFACE 

*********************************************************************** 


001000 

F80C50 

SECNO DC 

X*F80C50* 


PROGRAM AND SECTION NUMBER 

001003 

00 

OC 

X*00« 


CURRENT ROUTINE NUMBER 

001004 

00000000 

SNSW DC 

XL4 *00 * 


SECTION SENSE SWITCHES 

001008 

0000 

OC 

XL2*00» 


NOT USED 

00100A 

0000 

1CM DC 

XL2 *00* 


INTERRUPTION CONDITION MASK 

00100C 

00 

DC 

X*00* 


SECTION DM. FLAGS 

DATE 

16JUN65 22JUN65 

15JUL65 15DEC65 

15MAR66 

15N0V66 

ID F80C-5 

EC 

124263 124249 

124265 125601 

125632 

125655 

PAGE 1 
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F80C 

2821 SCAN* 

1403 UNIVERSAL 

CHARACTER SET 




F80C 

2821 

SCAN, 

1403 

UNIVERSAL CHARACTER SET 



F80C5 

RESIDENT 

AND CONTROL ROUTINE OVERLAY 1 





. F80C5 

RESIDENT 

AND CONTROL 

ROUTINE OVERLAY 1 



1 

00U8F 

D4C102C540D709C9D5 


DC 

C«MAKE PRINTER ROY• 




00I2A6 

91 

80 

F 

004 




TM 

SNSW,X *80 * 

BR IF SEC SS 00 IS 1 - LOOP SIO 

... , j 

j 

001198 

E3C50940D9C4E8 







0012 AC 

47 

10 

F 

232 




BC 

ALL,SIOAOO 

, * 


00119F 

0000 



STATSV 

DC 

X*0000® 

2ND STATUS SAVE AREA 



00I2B0 

OA 

DD 






SVC 

X *DD * 

CONVERT CAW TO EBCDIC 

\ 

0011A4 

00000000 

CSMAG 

DC 

2F * 00 * 

AGGREGATE CSW SAVED HERE 



0012B2 

0004 






DC 

AL2(4) 

NO* OF HEX BYTES IN CAW 

■ • \ 

0011A8 

00000000 







0012B4 

0048 






DC 

AL2(CAW-SEGNO) 

HEX DATA ADDR 


0011 AC 

C9610640C1C4C40940 

SI0MS3 

DC 

C*I/0 ADDR XXX CAW* 




0012B6 

0134 






DC 

AL2C SI0MSI+17-SECN0) 

EBCDIC DATA ADDR 

1 

001185 

E7E7E740C3C1E6 







0012B8 

02 

02 

F 

12C 

F 

753 


MVC 

SI0M$l+9(3),UAPRT 

SET PRINTER ADDR IN OUTPUT MSG 


0011BC 

40E7E7E7E7E7E767E7 


DC 

C• XXXXXXXX GOT CC* 




0012BE 

92 

F3 

F 

143 




MVI 

SI0MS1+32,X *F3 * 

SET CC3 IN OUTPUT MSG 

• ' . f 

0011C5 

40C7D6E340C3C3 







0012C2 

OA 

DO 






SVC 

X *D0 * 

PRINT GOT CC3 ON SIO 

| 

0011CC 

F040C3E2E640E7E7E7 


DC 

C*0 CSW xxxxxxxxxx* 




0012C4 

40 







DC 

X *40 • 

PRINT;PROG NO* PRIOR TO MSG 

[ 

001IDS 

E7E7E7E7ETE7E? 














♦ 



TREAT AS ERROR 

. 1 

0011 DC 

E7E7E7E7E7E740E2D5 


DC 

C*XXXXXX SNS XX • 











* 



DO NOT CHAIN 

. \ 

0011E5 

E240E7E740 














* , 



DO NOT RESTORE 

I 

001IEA 

C961D640C1C4C4D940 

SI0MS4 

DC 

C*I/0 AODR XXX CAW* 




0012C5 

21 







DC 

X *21 * 

NO. OF CHAR IN MSG (33) 

} 

| 

• 0011F3 

E7E7E740C3C1E6 







0012C6 

F123 






DC 

AL2(SIQMS1-BASE+REG) 

MESSAGE ADDRESS 

' 

0011F A 

40E7E7E7E7E7E7E7E7 


DC 

C* XXXXXXXX GOT CC» 




0012C8 

47 

FO 

F 

232 




BC 

UNC,SIOAOO 

GO TRY SIO AGAIN 

' 

001203 

40C7D6E340C3C3 














* ' 





00120A 

F040C3E2E640E7E7E 1 


DC 

C*0 CSW xxxxxxxxxx* 











* . 

HANDLE SIO CC2 HERE 



001213 

E7E7E7E7E7E7E7 






1 








* 




1 

f 

00121A 

E7E7E7E7E767 


DC 

C'XXXXXX* 




0012CC 

91 

10 

F 

108 



SIOCOO 

TM 

SI0VR4,X*10* 

BR IF DID NOT GET CC2 


001220 

0000000000000000 

SI0VR8 

DC 

XL8 *00 ® 

SENSE CSW SAVED HERE 



0012D0 

47 

10 

F 

2F8 




BC 

ALL,SIODOO 

, i 






if^***#®*^*******************************#***************************** j 

0012D4 

91 

80 

F 

004 




TM 

SNSW,X *80 * 

BR IF SEC SS 00 IS I - LOOP SIO 

j 





* 

1403 

START 1/0 ROUTINE 



4 

0012D8 

47 

10 

F 

274 




BC 

ALL,SIOAOl 

, 9 

• f 





#sMt$$*«»**4$$*******4*«*«*4***************«*****4*******************«** 

0012DC 

OA 

DD 






SVC 

X *DD • 

CONVERT CAW TO EBCDIC 


001228 





CNOP 

0,4 

ALIGN ON WORD BOUNDARY 


! 

0012DE 

0004 






DC 

AL2(4) 

NO. OF HEX BYTES IN CAW 


001228 

90 19 

F 

0E4 

SIO 

STM 

R1,R9,SICVR1 

SAVE Rl THRU R9 



0012E0 

0048 






DC 

AL2(CAW-SECNO) 

HEX DATA ADDR 

f 

00122C 

02 03 

F 

114 F 048 


MVC 

SIQVR2(4),CAW 

SAVE CAW 



0012E2 

0134 






DC 

AL2(SI0MS1+17-SECNQ) 

EBCDIC DATA ADDR IN OUTPUT MSG 


001232 

D7 07 

F 

118 F 118 

SIOAOO 

XC 

SI0VR3I8),SI0VR3 

CLEAR CSW SAVE AREA 



0012E4 

02 

02 

F 

12C 

F 

753 


MVC 

SIQMS1+9I3),UAPRT 

SET I/O ADDR IN OUTPUT MSG 


001238 

07 00 

F 

120 F 12© 


xc 

SENSE(1),SENSE 

CLEAR SENSE BYTE 



0012EA 

92 

F2 

F 

143 




MVI 

SI0MS1+32»X *F2 * 

SET CC2 IN OUTPUT MESSAGE 

I 

00123E 

54 CO 

F 

758 


N 

R12,CLRC 

AND OUT SITS 0 THRU 20 OF 

GEN REG 

12 

0012EE 

OA 

DO 






SVC 

X *D0 * 

PRINT GOT CC2 ON SIO 


001242 

02 00 

F 

048 F 121 


MVC 

CAW(l)tCAWKEY 

LOAD STORAGE KEY IN SEC PREF CAW 


0012F0 

40 







DC 

X *40 • 

PRINT PROG NO. PRIOR TO MSG 

• - X 

001248 

02 03 

0 

048 F 048 


MVC 

HCAWC4,R13),CAW 

LOAD CAW 


' 1 




<* 




'* 



TREAT AS ERROR 


00124E 

9C 00 

C 

000 


SIO 

0(R12 J 

START I/O 



. 0 







♦ 



DO NOT CHAIN 

i 

001252 

45 10 

F 

256 


BAL 

Rl,**4 

SAVE CONDITION CODE 










♦ 



DO NOT RESTORE 


001256 

50 10 

F 

108 


ST 

Rl,SI0VR4 

j » 



0012F1 

21 







DC 

X *21 * 

NO* OF CHAR IN MSG 433) 

\ 

00125A 

91 80 

F 

122 


TM 

SIO$WS»X®80® 

SEE IF RET TO PROG SW1 ON 



0012F2 

F123 






DC 

AL2CSI0MS1-BASE+REG) 

MESSAGE ADDRESS 


00125E 

47 10 

F 

438 


BC 

ALL,SI0106 

BR IF YES 



0012F4 

47 

FO 

F 

274 




BC 

UNC f SIOAOl 

GO TRY AGAIN 

' 1 

001262 

91 30 

F 

108 


TM 

SI0VR4,X*30 * 

SEE IF SIO CC WAS ZERO 










* 




f; 

001266 

47 50 

F 

2A4 


BC 

ANY,SIOBOO 

BR IF NO 










■ * 

HANDLE SIO CCl HERE 

.... * f : ;• _ 

. ' ■ i 

00126A 

OA D8 




SVC 

X *D8* 

WAIT FOR I/O INTERRUPT 



0012F8 

91 

80 

F 

004 



. * . 

SIODOO 

TM 

SNSW,X *80 * 

BR IF SEC SS 00 IS 0 - NO LOOP 

• • f 

SIO j 





4 

COME 

HERE IF DID NOT GET FIRST INTERRUPT 



0012FC 

47 

80 

F 

346 




BC 

NONE,$10004 

»* 






4 






001300 

91 

FF 

D 

045 




TM 

HCSW+5CR13),X *FF * 

DO TIO IF GOT ANY CH STS FOR CLEAR 

00126C 

91 80 

F 

004 


TM 

SNSW,X *80 * 

BR IF SEC SS 00 IS ZERO - 

NQ SIO LOP 

001304 

47 

50 

F 

274 




BC 

ANY,SIOAOl, 

t * 


001270 

47 80 

F 

288 


BC 

NONE,SIGAG2 

j , 



001308 

47 

FO 

F 

232 




BC 

UNC,SIOAOO 

LOOP SIO ONLY 


001274 

58 50 

E 

198 

SIOAOl 

L 

R5,408CR0,R14I 

GET DM 10 SEC CONSTANT 



00130C 

D2 

02 

F 

15P 

F 

753 

SI0D02 

MVC 

SI0MS2*9(3>,UAPRT 

SET PRINTER ADDR IN OUTPUT MSG 


001278 

90 00 

C 

000 


TIO 

0(R12) 

TEST I/O 



; 001312 

OA 

DD 






SVC 

X*DD* 

CONVERT CAW TO EBCDIC 


00127C 

47 80 

F 

232 


BC 

CCO,SIOAOO 

REPEAT SIO IF GOT CCO 



001314 

0004 






DC 

AL2(4) 

NO. OF HEX BYTES IN CAW 


001280 

46 50 

F 

278 


8CT 

R5,SI0A01*4 

DELAY 



! 001316 

0048 






DC 

AL2(CAW—SECNO) 

HEX DATA ADDR 


l 001284 

47 FO 

F 

232 


BC 

UNC,SIOAOO 

GO REPEAT SIO 



001318 

0167 






DC 

AL2(SI0MS2+17—SECNO) 

EBCDIC ADDR IN OUTPUT MESSAGE 


j 001288 

02 02 

F 

12C F 753 

SI0A02 

MVC 

SI0MS1+9I31,UAPRT 

SET PRINTER ADDR IN OUTPUT 

MESSAGE 


00131A 

02 

07 

F 

118 

D 

040 


MVC 

SI0VR3(8),WCSW(R13) 

SAVE CSW 


} 00128E 

OA DO 




SVC 

X *DD * 

CONVERT CAW TO EBCDIC 



001320 

OA 

DD 






SVC 

X *DD * 

CONVERT CSW STATUS TO EBCDIC 


j 001290 

0004 




DC 

AL2C4) 

NO OF HEX BYTES IN CAW 



001322 

0002 





% 

DC 

AL2(2) 

NO. OF STATUS BYTES 


! 001292 

0048 




DC 

AL21 CAW-SECNO) 

HEX DATA ADDR 



001324 

one 






DC 

AL2(SIGVR3+4-SECNQ) 

CSW STATUS ADDR 

! 

j 001294 

0134 ' 




DC 

AL2(SI0MSi+l7*-SECNO) 

EBCDIC DATA ADDR IN OUTPUT 

MESSAGE 


001326 

0183 






DC 

AL2(SI0MS2+45—SECNO) 

EBCDIC ADDR IN OUTPUT MSG 


001296 

92 FO 

F 

143 


MVI 

SIOMS1^32,X*FO* 

SET CCO IN OUTPUT MSG 



001328 

92 

FI 

F 

176 




MVI 

SI0MS2+32, X *F1 • 

SET CCl IN OUTPUT MSG 


00129A 

OA 00 




SVC 

X *D0 1 

PRINT GOT CCO BUT NO INTERRUPT 


00132C 

91 

02 

F 

11C 




TM 

SI0VR3+4 ? X *02 * 

GO DO SENSE I/O IF GOT UC 

r 

00129C 

40 




DC 

X»40« l 

PRINT PROG NO* PRIOR TO MESSAGE 


; ooi33d 

47 

10 

F 

362 




BC 

ALL , SIOEOO 

♦ , 






* 



TREAT AS ERROR 



001334 

OA 

DO 






SVC 

X *D0 * 

PRINT GOT CCl ON SIO - NO UC 






* 



DO NOT CHAIN 



001336 

40 







DC 

X *40* 

PRINT PROG NO. PRIOR TO MSG 






* 



DO NOT RESTORE 

I 









* 



TREAT AS ERROR 

I 

001290 

32 




DC 

X*32 * 

NO* OF CHAR IN MSG (50) 










* 



DO NOT CHAIN 


00129E 

FI 23 




DC 

AL2(SIOMSl-BASE+REG) 

MESSAGE ADDRESS 










♦ 



DO NOT RESTORE 


j oo 12 m 

47 FO 

F 

274 


BC 

UNC,SIOAOl 

GO TRY AGAIN 


<6 

001337 

31 







DC 

X * 31 • 

NO. OF CHAR IN MSG (49) 


. J 




♦ 






001338 

F156 






DC 

AL2 ( SIQMS2-BASE+REG) 

MESSAGE ADDRESS 

{ 

i 




❖ 

HANDLE SIO CCS HERE 




00133A 

91 

FF 

F 

1 ID 



SI0D03 

TM 

SI0VR3+5 ,X 'FF * 

DO TIO BEFORE SIOi IF GOT ANY CH 

STS 

t 




* 






00133E 

47 

50 

F 

274 




BC 

ANY,SIOAOl 

, * 


j 0012A4 

47 .40 

F 

2CC • 

SIOBOO 

BC 

SOME,SIOCOO 

BR IF NOT CCS 



001342 

47 

FO 

F 

232 




BC 

UNC,SIOAOO 

REPEAT SIO ONLY 


! DATE 

I6JUN65 


22JUN65 15JUL65 150EC63 

15MAR66 15N0V66 


ID F80C-5 

DATE 

16JUN65 


22JUN65 

15JUL65 15DEC65 

15MAR66 15N0V66 

ID 

F80C-5 i 

1 EC 

124263 


124249 124265 125601 

125632 125655 


PAGE 


EC 

124263 


124249 

124265 125601 . 

125632 125655 

PAGE 

2A j 




0 00000000000000000 9 0000000 0 0000000 
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F80C 

2821 

SCANi 

1403 

UNIVERSAL CHARACTER SET 


F80C 

2821 

SCAN, 

1403 

UNIVERSAL CHARACTER SET 


F80C5 

RESIDENT 

AND CONTROL 

ROUTINE OVERLAY 1 



F80C5 

RESIDENT 

AND CONTROL 

ROUTINE OVERLAY 1 



001346 

91 

FF 

0 

045 



SI0004 

TM 

HCSW+5(R13)»X *FF• 

BR IF GOT ANY CHAN STATUS 

001408 

47 

FO 

F 

274 




BC 

UNC t SI0A01 

GO TRY AGAIN 

00134A 

47 

50 

F 

30C 




BC 

ANY ,SI0D02 

* * 

00140C 

91 

FF 

F 

1A9 



SIOI05 

TM 

CSWAG+5 ?X *FF• 

BR IF GOT ANY CHAN STATUS 

00134E 

95 

OC 

D 

044 




CLI 

HCSW+4IR13),X , OC» 

SEE IF GOT CE ♦ DE ONLY 

001410 

47 

50 

F 

44C 




BC 

ANY ? SI 0108 


001352 

47 

60 

F 

30C 




BC 

UNEQ v SI0D02 

BRANCH IF NO 

001414 

91 

02 

F 

1A8 




TM 

CSWAG+4?X *02 * 

BR IF DID NOT GET UNIT CHECK 

001356 

91 

40 

F 

122 




TM 

SIQSW$,X*4Q® 

SEE IF RETURN TO PROG ON IMMED OP 

001418 

47 

80 

F 

438 




BC 

NONE ? SX0I06 

»t 

00135A 

47 

10 

F 

438 




BC 

ALL,SIOI06 

BRANCH IF YES 

00141C 

45 

70 

F 

47E 




BAL 

R7 ?SI0F00 

GO DO SENSE OP 

00135E 

47 

FO 

F 

3C2 




BC 

UNCtSIQI02 

GO INDICATE ERROR 

001420 

91 

A2 

F 

120 




TM 

SENSE,X»A2* 

BR IF GOT COMM REJ, BUS OUT PARITY* 

001362 

45 

70 

F 

47E 



SIOEOO 

BAL 

R7,SIOFOO 

GO DO SENSE I/O 

001424 

47 

50 

F 

43E 




BC 

ANY ? SIOI07 

OR INVALID SEQUENCE 

001366 

OA 

00 






SVC 

X *00 • 

CONVERT SENSE DATA TO EBCDIC 

001428 

96 

01 

F 

122 




01 

SI0SWS,X*01» 

TURN ON INTERV REQ SW 

001368 

0001 






DC 

AL2(1) 

NO. OF SENSE BYTES 

00142C 

91 

40 

F 

120 




TM 

SENSE,X»40® 

BR IF GOT INTERV REQ 

00136A 

0120 






DC 

AL2(SENSE-SECNO) 

SENSE DATA ADDR 

001430 

47 

10 

F 

438 




BC 

ALL , SI0106 

t * 

00136C 

018C 






DC 

AL2(SIOMS2+54-SECNO) 

EBCDIC DATA ADDR IN OUTPUT MSG 

001434 

97 

01 

F 

122 




XI 

SlOSWSfX’Ol* 

TURN OFF INTERV REQ SW j 

00136E 

91 

40 

F 

120 




TM 

SENSE ,X*40 * 

BR IF GO INTERV REQ 

001438 

98 

19 

F 

0E4 



S10I06 

LM 

R1 ,R9,SI0VR1 

RESTORE R1 THRU R9 | 

001372 

47 

10 

F 

380 




BC 

ALL,SIOEOl 

f t 

00143C 

07 

FB 






BCR 

UNCtRll 

RETURN TO PROGRAM 

001376 

OA 

DO 






SVC 

X *00 • 

GOT CC1 ON SIO WITH UC ♦ NO INTV REQ 

00143E 

45 

30 

F 

45A 



$10107 

BAL 

R3,SIOI09 

GO SET UP PRINTOUT 

001378 

40 







DC 

X®40 f 

PRINT PROG NO. PRIOR TO MESSAGE 

001442 

OA 

DO 






SVC 

X*DO* 

GOT COMMAND REJ, BUS-OUT PARITY, 








* 



TREAT AS ERROR 

. 







♦ 



AND/OR INVALID $EQ WITH CCO 








* • 



DO NOT CHAIN 

001444 

40 







DC 

X *40* 

PRINT PROG NO. PRIOR TO MESSAGE 








4 



DO NOT RESTORE 








* 



TREAT AS ERROR 

001379 

38 







DC 

X i 38* 

NQ. OF CHAR IN MSG (56) 








* 



DO NOT CHAIN 

00137A 

F156 






OC 

AL2ISI0MS2-8ASE4RE6J 

MESSAGE ADDRESS 








♦ 



DO NOT RESTORE 

00137C 

47 

FO 

F 

33A 




BC 

UNC«SI0003 

REPEAT SIO 

001445 

3F 







DC 

X *3F * 

NO. OF CHAR IN MSG (62) 

001380 

OA 

DO 





SIOEOl 

SVC 

X ®D0* 

PRINT GOT CC1 ON SIO - UC 4 INTV REQ 

001446 

F1AC 






DC 

AL2(SIQMS3-BASE+REG) 

MESSAGE ADDRESS 

001382 

40 







OC 

X*40® 

MAKE PRINTER READY -I/O ADDR IN 6R12 

001448 

47 

FO 

F 

274 




BC 

UNC,SIOAOl 

GO TRY SIO AGAIN 








4 



PRINT PROG NO. PRIOR TO MSG 

00144C 

45 

30 

F 

45A 



SIOI08 

BAL 

R3,$10109 

GO SET UP PRINTOUT 








4 



TREAT AS ERROR 

001450 

OA 

DO 






SVC 

X®DO® 

GOT CHANNEL STATUS WITH CCO 







;( 

4 . 



DO NOT CHAIN 

001452 

40 







DC 

X *40 * 

PRINT PROG NO. PRIOR TO MESSAGE 







\ 

* 4 



DO NOT RESTORE 








♦ 



TREAT AS ERROR 

001383 

49 





X. 


DC 

X*49* 

NO. OR CHAR IN MSG (731 








* 



DO NOT CHAIN ' j 

001384 

F156 






DC 

AL2(SI0MS2-BASE+REG) 

MESSAGE ADDRESS 








* 



DO NOT RESTORE 

j 001386 

47 

FO 

F 

274 




BC 

UNC fSI0A01 

CONTINUE 

001453 

36 







DC 

X *36 * 

NO. OF CHAR IN MESSAGE (54) 








4 




001454 

F1AC 






DC 

AL2(SI0MS3-BASE+REG) 

MESSAGE ADDRESS \ 








4 

HANDLE SIO CCO HERE 


001456 

47 

FO 

F 

274 




BC 

UNC,SIOAOl 

GO TRY SIO AGAIN f 








4 




00145A 

D2 

02 

F 

185 

F 

753 

SIOI09 

MVC 

SI0MS3+9(3)tUAPRT 

SET PRINTER ADDR IN OUTPUT MESSAGE \ 

00138A 

91 

80 

F 

004 



SIOINT 

TM 

SNSW,X *80• 

BR IF SEC SS 00 IS 1 - LOOP SIO 

001460 

OA 

DO 






SVC 

X *DD * 

CONVERT CAW TO EBCDIC 

00138E 

47 

10 

F 

274 




BC 

ALLtSI0A01 

t * 

001462 

0004 






DC 

AL2(4) 

NO. OF HEX BYTES IN CAW j 

001392 

02 

07 

F 

118 

D 

040 


MVC 

SI0VR3C8),HCSW(R13) 

SAVE CSW 

001464 

0048 






DC 

AL2(CAW-SECNO) 

HEX DATA ADDR j 

001398 

91 

20 

F 

122 




TM 

SI0SWS,X*20® 

BR IF RET TO PROG SW3 ON 

001466 

OIBD 






DC 

AL2(SIGMS3+17-SECN0) 

EBCDIC DATA ADDR IN OUTPUT MSG i 

00139C 

47 

10 

F 

438 




BC 

ALL y SI 0106 

»» 

001468 

OA 

DD 






SVC 

X *DD * 

CONVERT CSW TO EBCDIC }' 

0013 AO 

07 

01 

F 

19F 

F 

19F 


XC 

STATSV(2)tSTATSV 

CLEAR 2ND STATUS SAVE AREA 

00146A 

0008 






DC 

AL2(8) 

NO. OF HEX BYTES IN CAW ! 

0013A6 

58 

40 

F 

IOC 




L 

R4 $ SI0VR9 

LOAD TIME CONSTATN IN GR 4 

00146C 

01A4 






DC 

A12 ( CSWAG-SECNO) 

HEX DATA ADDR 

0013AA 

46 

40 

F 

3B2 



$10100 

BCT 

R4fSIOIOI 

REPEAT TIQ IF GR 4 NOT ZERO 

00146E 

01D2 






DC 

AL2< SI0MS3+38—SECNO) 

ESC OATA ADDR IN OUTPUT MSG 

0013AE 

47 

FO 

F 

3CC 




BC 

UNC f SI 0103 

CONTINUE - WAITED TOO LONG FOR CCO 

001470 

OA 

DD 






SVC 

X • DD ® 

CONVERT SENSE DATA TO EBCDIC 

0013B2 

90 

00 

C 

000 



SIOIOI 

TIO 

0(R12) 

TEST I/O 

001472 

0001 






DC 

AL2(1) 

NO. OF SENSE BYTES 

0013B6 

47 

80 

F 

3CC 




BC 

Z t SIOI03 

BR IF GOT CCO 

001474 

0120 






DC 

AL2(SENSE-SECNO) 

HEX DATA ADOR 

0013BA 

47 

40 

F 

3C2 




BC 

CC1fSI0I02 

BR IF GOT CC1 

001476 

01E7 






DC 

AL2(SI0MS3+59-SECNQ) 

EBCDIC DATA ADOR IN OUTPUT MSG 

0013BE 

47 

FO 

F 

3AA 




BC 

UNC t SIOIOQ 

REPEAT TIO 

001478 

92 

FO 

F 

ICC 




MVI 

SI OM$3+32,X * FO * 

SET CCO IN OUTPUT MESSAGE 

0013C2 

06 

01 

F 

19F 

D 

044 

SIOI02 

OC 

STATSVC2),HCSW*4(R13) 

SAVE 2ND STATUS 

00147C 

07 

F3 






BCR 

UNC.R3 

RETURN 

0013C8 

47 

FO 

F 

3AA 




BC 

UNC,SI 0100 

REPEAT TIO 








*******************4^******************************4‘*4'****>t**********>** 

0013CC 

91 

04 

F 

122 



SIOI03 

TM 

SlOSWSfX *04• 

SEE IF WANT DELAY 








♦ 

SENSE 

I/O PERFORMED HERE 

* 

0013D0 

47 

80 

F 

3EA 




BC 

NONE fSIOI04 

BR IF NO 








*********$***#*#$«$***«**$**$***$*♦*$*$******************♦**********♦♦* 

0013D4 

58 

40 

F 

IOC 




L 

R4,SI0VR9 

SET UP FOR DELAY 

00147E 

D2 

02 

F 

1F3 

F 

753 

SIOFOO 

MVC 

SI0MS4+9C3)vUAPRT 

SET PRINTER ADDR IN OUTPUT MESSAGE 

001308 

90 

00 

C 

000 




TIO 

0CR12) 

TEST I/O 

001484 

41 

00 

F 

568 




LA 

RO, SNSCCW 

SET UP SENSE CAW 

00130C 

47 

BO 

F 

3E6 




BC 

CSWNST * 4-f 10 

BR ON ANY CC BUT 1 f 

001488 

50 

00 

F 

048 




ST 

RO,CAW 

, , 

0013E0 

06 

01 

F 

19F 

0 

044 


OC 

STATSV(2) tHCSW4-4 IR13) 

SAVE CSW STATUS 

00148C 

D2 

00 

F 

048 

F 

121 


MVC 

CAW(l),CAWKEY 

, » 

0013E6 

46 

40 

F 

308 




BCT 

R4*SI0I03+12 

BR IF NOT END OF DELAY 

001492 

OA 

DD 






SVC 

X * DD ' 

CONVERT CAW TO PRINTABLE 

0013EA 

02 

07 

F 

1A4 

F 

118 

510104 

MVC 

CSWAG<8>fSIOVRB 

DEVELOP AGGREGATE CSW 

001494 

0004 






DC 

AL2(4) 

NO OF HEX BYTES IN CAW 

00 UFO 

06 

01 

F 

1A8 

F 

19F 


OC 

CSWAG+4(2)*STATSV 

it 

001496 

0048 






DC 

AL2 ( CAW-SECNO) 

HEX DATA ADDRESS 

0013F6 

91 

OC 

F 

1A8 




TM 

CSWAG+4 fX *0C • 

BR IF GOT CE 4 DE 

001498 

01FB 






DC 

AL2(SX QMS4+17-SECNQ) 

PRINTABLE DATA ADDRESS 

0013FA 

47 

10 

F 

40C 




BC 

ALL? SIOI05 


00149A 

02 

03 

D 

048 

F 

048 

SI0F01 

MVC 

HCAW(4,R13) tCAW 

LOAD SENSE CAW 

0013FE 

45 

30 

F 

45A 




BAL 

R3 * SI0I09 

GO SET UP PRINTOUT 

0014A0 

9C 

00 

C 

000 




SIO 

0 (R12) 

SENSE I/O 

001402 

OA 

00 






SVC 

X ®D0' 

DID NOT GET CE AND/OR DE 

0014A4 

45 

00 

F 

4A8 




BAL 

R0,*+4 

SAVE CONDITION CODE 

001404 

40 







DC 

X *40 • 

PRINT PROG NO PRIOR TO MESSAGE 

0014A8 

91 

80 

F 

004 




TM 

SNSW,X * 80 1 

BR IF SEC SS 00 IS 1 - LOOP SIO 








4 



TREAT AS ERROR 

0014AC 

47 

10 

F 

552 




BC 

ALL , SI 0F08 1 

, t 








4 



DO NOT CHAIN 

0014B0 

50 

00 

F 

110 




ST 

RO,SI0VR7 

MOVE CONDITION CODE 








4 . 



DO NOT RESTORE 

0014B4 

92 

FO 

F 

20A 




MVI 

SI0MS4+32,X * FO * 

SET CCO IN OUTPUT MESSAGE 

001405 

36 







DC 

X*36* 

NO. OF CHAR IN MSG (54) 

0014B8 

91 

30 

F 

110 




TM 

SX0VR7,X *30 * 

BR IF GOT CCO 

001406 

F1AC 






OC 

AL2CSI0MS3-BASE+REG) 

MESSAGE ADDRESS 

0014BC 

47 

80 

F 

500 




BC 

NONE,S20F03 

tt 

DATE 

16JUN65 


22JUN65 

15JUL65 150EC65 

15MAR66 15N0V66 

\ j 

ID F80C-5 | 

DATE 

16JUN65 


22JUN65 

15JUL65 15DEC65 

15MAR66 15N0V66 

ID F80C-5 

EC 

124263 


124249 

124265 125601 

125632 125655 

PAGE 3 | 

EC 

124263 


124249 

124265 125601 

125632 1256^5 

PAGE 3A 











* - ( : 

--r- 
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F80C5 

RESIDENT 

AND CONTROL 

ROUTINE OVERLAY 1 



0014C0 

92 

F3 

F 

20A 



MVI 

SI0MS4+32 *X *F3• 

SET CC3 IN OUTPUT MESSAGE 

0014C4 

47 

10 

F 

4F6 



BC 

ALL * SI0F02 

BR IF GOT CC3 

0014C8 

92 

F2 

F 

20A 



MVI 

SI0MS4+32 *X *F2 * 

SET CC2 IN OUTPUT MESSAGE 

0014CC 

91 

20 

F 

110 



TM 

SI0VR7 *X'20• 

BR IF GOT CC2 

0014D0 

47 

10 

F 

4F6 



BC 

ALLtSI0FG2 

11 

0014D4 

92 

FI 

F 

20A 



MVI 

SIQMS4+32 tX’Fl• 

SET CC1 IN OUTPUT MESSAGE 

0014D8 

D2 

OA 

F 

210 

F 

17C 

MVC 

SI0MS4*38(11> *SI0MS2+38 SET UP OUTPUT MESSAGE 

0014DE 

D2 

07 

F 

220 

D 

040 

MVC 

SI0VR8(8)*HCSW(R13) 

SAVE CSW 

0014E4 

OA 

DD 





' SVC 

X *DD • 

CONVERT CSW STATUS TO PRINTABLE 

0014E6 

0002 





DC 

AL2(2) 

NO* OF STATUS BYTES 

0014E8 

0224 





DC 

AL2(SIOVR8+4-SECNO) , 

CSW STATUS ADDRESS 

0014EA 

0217 





DC 

AL2ISI0MS4445-SECN0) 

PRINTABLE DATA ADDRESS 

0014EC 

OA 

DO 





SVC 

X *DO f 

GOT CC1 FOR SENSE 

0014EE 

40 






DC 

X *40* 

** ERR MESSAGE 

0014EF 

31 






DC 

X f 31 • 

49 CHARACTERS 

0014F0 

F1EA 





DC 

AL2CSI0MS4-8ASE+REG1 

99 ADDRESS OF MESSAGE 

0014F2 

47 

F0 

F 

552 



BC 

UNC tSI0F08 

GO TRY SENSE AGAIN 

0014F6 

OA 

DO 





SI0F02 SVC 

X®DQ* 

GOT CC2 OR CC3 FOR SENSE 

0014F8 

40 






DC 

X *40 1 

99 ERROR MESSAGE 

0014F9 

21 






DC 

X*21 • 

99 33 CHARACTERS 

0014FA 

F1EA 





' DC 

AL2ISI0MS4-BASE4REGI 

99 ADDRESS OF MESSAGE 

0014FC 

47 

FO 

F 

552 



BC 

UNC *SI0F08 

GO TRY SENSE AGAIN 

001500 

D7 

07 

F 

220 

F 

220 

SIOF03 XC 

SI0VR8I8ItSIOVRS 

CLEAR SENSE CSW SAVE AREA 

001506 

58 

40 

E 

198 



L 

R4»408IR0fRl4l 

GET DM TEN SEC TIME CONSTANT 

00150A 

9D 

00 

C 

000 



SIOF04 TIO 

0CR12) 

TEST I/O 

00150E 

4? 

40 

F 

51A 



BC 

CCltSIOF05 

BR IF CSW STORED 

001512 

40 

40 

F 

50A 



BCT 

R4 * SIOF04 

LOOP TIO FOR MAX OF TEN SEC 

001516 

47 

FO 

F 

520 


X 

BC 

UNC *SI0F0S+6 

CONTINUE 

00151A 

D6 

07 

F 

220 

0 

040 

SIOF05 OC 

SI0VR8(8)*HCSW(R13) 

SAVE CSW 

001520 

91 

FF 

F 

225 



TM 

SI0VR8+5*X ®FF* 

BR IF ANY CHANNEL STATUS 

001524 

47 

50 

F 

538 



BC 

ANY *SI0F06 

t 9 

001528 

91 

oc 

F 

224 



TM 

SI0VR8+4 »X ®0C * 

BR IF DID NOT GET CE ♦ DE 

00152C 

47 

CO 

F 

538 



BC 

ZNEG,SI0F06 

# 9 

001530 

91 

F3 

F 

224 



TM 

SI0VR844 *X *F3 ® 

BR IF NOT ANY OTHER UNIT STATUS 

001534 

47 

80 

F 

54A 



BC 

NONE * SIOF07 

9 9 

001538 

OA 

DD 





S10F06 SVC 

X *DD * 

CONVERT CSW TO PRINTABLE 

0015 3 A 

0008 





DC 

AL2C8) 

, 8 NO. OF CSW BYTES TO BE CONVERTED 

00153C 

0220 





DC 

AL2ISI0YR8-SECNO) 

9* SENSE CSW ADDRESS 

00153E 

0210 





DC 

AL2 C SI0MS4+38-SECNOJ 

** PRINTABLE DATA ADDRESS 

001540 

OA 

DO 





SVC 

x«oo« 

GOT CCO FOR SENSE* BUT WRONG STATUS 

001542 

40 






DC 

X *40 ® 

** ERROR MESSAGE 

001543 

38 






DC 

X *36 * 

*9 54 CHARACTERS 

001544 

F1EA 





DC 

AL21 SI0MS4“BASSURES! 

*9 ADDRESS OF MESSAGE 

001546 

47 

FO 

F 

552 



BC 

UNC *SIOF08 

GO TRY SENSE AGAIN 

00154A 

02 

03 

F 

048 

F 

114 

SI0F07 MVC 

CAW«4)#SI0VR2 

RESTORE ORIGINAL CAW 

001550 

07 

F 7 





BCR 

UNC *R7 

RETURN 

001552 

58 

40 

E 

198 



SI0F08 L 

R4»408IR0*R14> 

GET DM TEN SEC TIME CONSTANT 

001556 

90 

00 

C 

000 



TIO 

OC R12) 

TEST I/O 

00 155A 

47 

80 

F 

49 A 



BC 

CCOjSIOFOl 

REPEAT SENSE IF GOT CC 0 

00155E 

46 

40 

F 

556 



BCT 

R4 * SI QF08*-4 

REPEAT TIO FOR TEN SEC MAX 

001562 

47 

FO 

F 

49A 



BC 

UNC *SI0F01 

GO TRY SENSE AGAIN 


0Q1568 


001ST® 


001576• 


00I57C 

001585 


DATE 

EC 


04 00112© 000© '0001 


00 00157C 0000 0000 


O0O0OOO0 


000000000000000000 

000000000000000800 


$**44444444444444444444444444444444444444444444444444444444444444444444 

* CCW-S USED BY SIO ROUTINE ♦ 

4*444444444444444444444444444444444444444444444444444444444444444444444 

SNSCCW CCW X*04*»SENSe»X«00Sl SENSE CCW 

44444444444*44444444444444444444444444444444444444444444444444444444444 

* VARIABLES FOR UTILITY ROUTINE - DOUBLE WORD BOUNDARY * 

44444444444444444444444444444444444444444444444444444444444444444444444 
SCPCCW CCW X • 00 • , SCPDAT ,X'00 * ,00 UTILITY ROUTINE CCW 

44444444444444444444444444444444444444444444444444444444444444444444444 

* VARIABLES FOR UTILITY ROUTINE - WORD BOUNDARY 4 

444444444444444444444444444444444444444444*4444444444444444444444444444 
SCPRK4 DC F *00* WORK AREA 

44 44 4 4 * 4 * 4 * 4 * 4 4 4 * * ft * * 4 * 4 J* 4 * 4 * * * 4* * 4 4 4* * * 4 * * 4 * * * * * 4 4 4 * * * * * # 4*4 4 4 $ * 44 * 44 4 4 4 4 

* VARIABLES FOR UTILITY ROUTINE - NO BOUNDARY * 

44444444444444444444444444444444444444444444444444444444444444444444444 
SCPDAT DC XL250*0* SCOPE ROUTINE DATA FIELD 


16JUN65 

124203 


22JUN65 

124249 


15JUL65 

124265 


15DEC05 

125601 


15MAR66 

125632 


15N0V66 

125655 


10 F80C-5 
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00158E 000000000000000000 
001597 000000000000000000 
0015A0 000000000000000000 
0015A9 000000000000000000 
0015B2 000000000000000000 
0015BB 000000000000000000 
0015C4; 000000000000000000 
0015CD 000000000000000000 
0015D6 000000000000000000 
0015DF 000000000000000000 
0015E8 000000000000000000 
0015F1 000000000000000000 
0015FA 000000000000000000 
001603 000000000000000000 
00160C 000000000000000000 
001615 000000000000000000 
00161E 000000000000000000 
001627 000000000000000000 
001630 000000000000000000 
001639 000000000000000000 
001642 000000000000000000 
00164B 000000000000000000 
001654 000000000000000000 
00165D 000000000000000000 
001666 000000000000000000 
00166F 00000000000000 


P/N 840223 | 
PAGE 4A I 


44«4444444444444444444444444*4444«*444*4444444444444444*444444*44$44444 

4 UTILITY ROUTINE 6 

44444444444444444444*444444«44444«4444444444444444444444444&44444444444 


001676 




CNOP 

0,4 


001676 

07 00 



BCR 

0*0 


001678 

90 9C 

F 

0E4 

SCPROO STM 

R9,R12tSXQVRl 

SAVE R9 THRU GR12 

00167C 

OA DO 



SCPR10 SVC 

X*DO® 

PRESS CONSOLE STOP 9 ENTER CCW DATA 





4 


1* ENTER OP IN 6R 10 - BYTE 2 - 





* 


2. ENTER CCW FLAGS:IN 6R10 ~ 





* 


BYTE 3 - 





4 


BIT 0 - NOT USED 





39* ' 


BIT 1 - NOT USED 





4 


BIT 2 - SLI 





4 ■ 


BIT 3 - SKIP 





4 


BIT 5 - NOT USED 





4 


3* ENTER DATA FIELD CONTENTS IN 





4 ' 


GR 11 - BYTES 0 THRU 3 - 





4 


4. ENTER CCW COUNT IN 6R 12 





4 


-BYTES 0 AND 1- 





4 


5. ENTER DEVICE ADDRESS IN GR 12 





4 


-BYTE 2* BITS 5^6-7, AND BYTE : 





4 


6. SET SEC SS 00 TO 1 TO LQOP 9 OR 





4 


SET TO ZERO FOR 1 PASS- 





4 


7* PRESS CONSOLE START 





4 


8* TO EXIT THIS RTN PRESS CONSOLE 





4 


STOP, SET SEC SS 00 AND 01 TO 





4 


ZERO, THEN PRESS CONSOLE START 

00167E 

80 



DC 

X * 80* 

»i 

001&7F 

27 



DC 

X *27 • 

9, 39 CHARACTERS 

001680 

F728 



DC 

AL2(SCPRK2-BASE+REG) 

99 ADDRESS OF MESSAGE 

001682 

58 CO 

F 

720 

L 

R12 9 SCPRK3 

SET GR 12 TO ONES 

001686 

55 CO 

F 

720 

SCPR20 CL 

R12 9 SCPRK3 

SEE IF GR 12 WAS ALTERED 

00168 A 

47 80 

F 

6A2 

BC 

EQ 9 SCPR40 

BR IF NO 

00168E 

91 40 

F 

004 

TM 

SNSW*X *40 9 

BR IF SEC SS 01 IS 1 * USE UTILITY 

001692 

47 10 

JF 

6AE 

BC 

ALL 9 SCPR50 

** ** ' 

001696 

98 9C 

F 

0E4 

SCPR30 LM 

R9*R12»SIGVR1 

RESTROE GR 9 THRU GR 12 

00169A 

D2 03 

F 

048 F 114 

MVC 

CAWC4) 9 SIOVR 2 

RESTORE ORIGINAL CAW 

0016 AO 

07 F8 



BCR 

UNC,R8 

RETURN TO PROGRAM 

0016A2 

91 40 

F 

004 

SCPR40 TM 

SNSW 9 X *40 • 

BR IF SEC SS 01 IS 1 - USE UTILITY 

0016A6 

47 10 

F 

686 

BC 

ALL»SCPR20 

9 9 

0016AA 

47 FO 

'F 

696 

BC 

UNC 9 SCPR30 

RETURN TO PROGRAM 

0016AE 

50 AO 

F 

578 

SCPR50 ST 

R10.SCPRK4 

SET UP CCW 

DATE 

16JUN65 


22JUN65 

15JUL65 15DEC65 

15MAR66 15N0V66 

2D F80C< 

EC 

124263 


124249 

124265 125601 

125632 125655 
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0016B2 

0016B8 

0016BC 

0016C2 

0016C6 

0016CC 

0016D2 

0016D6 

0016DC 

00I6E0 

0016E6 


001720 

001720 

001724 


001751 

001752 

001753 

001756 

001756 

001758 


00175C 

001760 


F 570 F 
F 574 
F 574 F 
F 578 
F 576 F 
F 578 F 
F 60C 
F 576 F 
F 578 
F 57C F 
F 580 F 


MVC 

MVI 

NC 

ST 

MVC 

CLC 

BC 

Mvr 

SCPR51 ST 


$CPCCW(i)tSCPRK4+2 
SCPCCW+4 tX *30 * 
SCPCCW+4U) •SCPRK4+3 
R12,SCPRK4 
$CPCCW+6(2),SCPRK4 
5CPRK4(2),$CPRKA 
NHIGH.SCPR51 
SCPCCW+6C2)tSCPRKA 
Rll#SCPRK4 
$CPDAT<4)tSCPRKA 
SCPDAT+4C246)»SCPDAT 


CHECK IF CCW COUNT OVER 250 
BR IF NOT 

FORCE CCW COUNT TO 250 
SET UP DATA FIELD 


START I/O FOR UTILITY ROUTINE 


0016EC 

41 

90 

F 

570 



SCPR70 

LA 

R9,SCPCCW 

SET UP CAW 


0016F0 

50 

90 

F 

048 




ST 

R9,CAW 

, » 


0016F4 

02 

00 

F 

048 

F 

121 


MVC 

CAWC1),CAWKEY 

, , 


0016FA 

02 

03 

D 

048 

F 

048 , 

SCPR80 

MVC 

HCAW(4,R13),CAW 

LOAD CAW 


001T00 

9C 

00 

C 

000 




SIO 

01R12) 

START I/O 


001704 : 

9D 

00 

C 

000 



SCPR90 

TIO 

0(R12) 

TEST I/O 

% 

001708 

47 

70 

F 

704 




BC 

NZ,SCPR90 

REPEAT TIO IF NOT 

CCO 

00170C 

91 

80 

F 

004 




TM 

SNSW,X *80• 

BR IF SEC SS 00 IS 

1 - LOOP SIO 

001710 

47 

10 

F 

6FA 




BC 

ALL,SCPR80 

,, 


001714 

91 

40 

F 

004 




TM 

SNSWtX’40’ 

BR IF SEC SS 01 IS 

1 - USE UTILITY 

001718 

47 

10 

F 

67C 




BC 

ALL,SCPR10 

, 9 


00171C 

47 

FO 

F 

696 




BC 

UNC.SCPR30 

RETURN TO PROGRAM 



FFFFFFFF 

00000014 


♦ CONSTANTS FOR UTILITY ROUTINE - WORD BOUNDARY * 

*♦***♦*♦**♦*♦♦*♦*♦***#*♦♦♦**♦♦*♦*♦♦*******♦****»♦**♦****♦****♦**♦****** 

CNOP O f 4 

SCPRK3 DC X’FFFFFFFF 8 
SCPRK5 DC X’00000014 * 

*♦♦*********♦*♦****♦♦***♦♦♦#**♦#♦♦*♦♦♦♦*♦*♦*♦♦**♦**♦******♦***********♦ 

♦ CONSTANTS FOR UTILITY ROUTINE - NO BOUNDARY * 

*********************************************************************** 


001728 

D7D9C5E2E240C3D6D5 

SCPRK2 DC 

C’PRESS CONSOLE ST* 

001731 

001738 

E2D6D3C540E2E3 

D6D7404E40C5D5E3C5 

DC 

C’OP ♦ ENTER UTILI* 

001741 

001748 

D940E4E3C9D3C9 

E3E840C4C1E3C1 

DC 

C’TY DATA* 

00174F 

OOFA 

SCPRKA DC 

X ’OOFA * 


*********************************************************************** 
* VARIABLES USED BY OVERLAYS - NO BOUNDARY * 

*********************************************************************** 


00 

00 

000000 

07 00 
000007FF 


92 FF F 751 
OA D6 


SCHNUM DC X'OO’ ROUTINE SEARCH NO* STORED HERE 

DC X’OO’ AREA TO SAVE PRINTABLE PRINTER ADDR 

UAPRT DC XL3’O’ ** 

CNOP Ot4 

BCR 0,0 

CLRC DC X’000007FF * 

***♦*♦*♦♦*♦*****♦**♦♦♦♦♦♦♦♦*♦♦**♦***♦♦*♦♦*♦♦***♦***♦♦****♦**♦**♦****♦** 

♦ COME HERE IF OPERATOR ABORTS PROGRAM 

*****♦******♦*♦*♦*♦♦♦♦*♦**♦**♦*♦***♦*******♦♦♦***♦**♦*****♦♦♦****♦*♦**♦ 
BREX MVI SCHNUMfX’FF• SET SEARCH NO. FOR BUFFER RESTORE . 

SVC X’D6* ROUTINE EXIT 

* 

*********************************************************************** 

* OVERLAYS BEGIN HERE * 

*********************************************************************** 

ORG SECN0+1900 

*****♦***♦**♦*******♦♦♦♦♦*♦♦♦♦**♦*»♦*♦♦♦***♦♦******»♦*♦*♦*****♦****♦♦** 

**♦♦******************************♦**»*♦**♦**♦*********♦*♦♦***♦♦♦♦**** 

* ROUTINES, VARIABLES, ♦ CONSTANTS USED BY BOTH CONTROL 

* OVERLAY ROUTINES 1+2 
********************************************************************** 

* 

* VARIABLE PROGRAM CONSTANTS 

A 


DATE 16JUN65 22JUN65 15JUL65 15DEC65 15MAR66 15N0V66 

EC 124263 124249 124265 125601 125632 125655 


ID F80C-5 
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\ 

\ 


00176C 







WRAREA 

DS 

153C 

WRITE AREA 

i 

| : 

001805 

00 






CESTAT 

DC 

X’OO’ 

CHAN END STATUS 

f 

001806 

00 






DESTAT 

DC 

X’OO* 

DEV END STATUS 


001807 

00 






AGSTAT 

DC 

X’OO’ 

COMBINED CHAN * DEV END STATUS 

[ 

001808 

00 






SNSE 

DC 

X’OO’ 

SENSE DATA 

j 

001809 







CKRDAR 

DS 

133C 

CHECK READ AREA 


00188E 







ROAR 

DS 

153C 

DATA READ AREA 

j 

001927 

00 






CKDATA 

DC 

X’OO’ 

TEMPORARY CK READ DATA STORAGE 


001928 

00 






EXPECT 

DC 

X’OO’ 

AREA TO TEST FOR EXPECTED BIT 

j 

001929 

00 






£RGGSW 

DC 

X’OO’ 

PROGRAM SWITCHES 

| 








*■ 



,, BIT 0 - 1ST PRINT PASS 

I 








* 



,, BIT 1 - RUN ROUTINE 









♦ 



,, BIT 2 - SKIP LOG OUT OF 

‘ 








♦ 



,, ,, CHECK ♦ DATA READS 









* 



,, BIT 7, -WRITE C.E# PARITY 

| 






00I57C 

UCSAR 

EQU 

SCPDAT 

UCB BUFFER LOAD AREA 







00157C 

CMPAR 

EQU 

SCPDAT 

COMPARE DATA AREA 

■ 








w . 

, 41 


LOGOUT INFORMATION 

ROUTINE 


00192A 

91 

40 

F 

004 



♦ 

EXIT 

TM 

SNSW,X’40 9 

IS SCOPE ROUTINE DESIRED 


001926 

47 

80 

F 

936 




BC 

NONE,EXIT! 

BRANCH IF NO 


001932 

45 

80 

F 

678 




BAL 

R 8, SCPROG 

GO TO SCOPE ROUTINE 


001936 

91 

20 

F 

004 



EXIT1 

TM 

$NSW,X*20* 

IS LOGOUT OF DATA DESIRED 


00193A 

47 

80 

F 

9A4 




BC 

NONE,EXIT2 

BRANCH IF NO 

| 

0019 3£ 

D2 

41 

F 

57C 

F 

76D 


MVC 

OUTPUT!66),WRAREA+i 


_ r 

061944 

45 

BO 

F 

9A6 




BAL 

Rll,GO 



001948 

02 

41 

F 

57C 

F 

7AF 


MVC 

OUTPUT ( 66 ) ,WRAREA*6? 



00194E 

45 

BO 

F 

9A6 




BAL 

Rll,GO 


j 

001952 

D2 

03 

F 

57C 

F 

805 


MVC 

OUTPUT ! 04),CESTAT 



001958 

OA 

DD 






SVC 

X *0D ’ 



00195A 

0004 






DC 

AL2 ( 04) 


■ v | 

00195C 

057C 






DC 

AL2 ( OUT PUT-* SEC NO 1 



00195E 

057C 






DC 

AL2(OUTPUT-SEGNO) 


[■" 

001960 

91 

20 

F 

929 




TM 

PRQGSW,X*20® 

SHOULD READ DATA BE SKIPPED 

■ , f 

001964 

47 

10 

F 

9CA 




BC 

ALL »GQ2 

BRANCH TO SKIP READ DATA 

. J; 

001968 

OA 

DO 






SVC 

X *00 • 



00196A 

AO 







DC 

X ’ AO * 


f 

00196B 

08 







DC 

X * 08 * 


1' 

001960 

F57C 






DC 

AL2!OUTPUT-BASE*REG) 


i 

00196E 

02 

41 

F 

57C 

F 

80A 


MVC 

OUTPUT(66),CKRDAR*1 


t: 

001974 

45 

BO 

F 

9A6 




BAL 

Rll,GO 


\ 

001978 

D2 

41 

F 

57C 

F 

84C 


MVC 

OUTPUT(66),CKRDAR+67 


i 

00197E 

45 

BO 

F 

9A6 




BAL 

Rll,GO 



001982 

D2 

41 

F 

57C 

F 

88F 


MVC 

OUTPUT < 66),RDAR+1 


! 

001988 

45 

BO 

F 

9A6 




SAL. 

Rll,GO 



00198C 

D2 

41 

F 

57C 

F 

8D1 


MVC 

OUTPUT ( 66 ) »RDAR*67 



001992 

47 

FO 

F 

9BC 




BC 

UNC »GG1 



001996 

OA 

DA 





EXIT1A 

SVC 

X ’DA * 



001998 

91 

40 

F 

004 




TM 

SNSW,X*40* 

IS SCOPE ROUTINE DESIRED 

' !. 

00199C 

47 

80 

F 

9A4 




BC 

NONE,EXIT2 

BRANCH IF NO 

1 

00 19 AO 

45 

80 

F 

678 




BAL 

R8 , SCPROO 

GO TO SCOPE ROUTINE 

l -X .-I 

0019A4 

OA 

06 





EXIT2 

jjK • 

SVC 

X *D6 * 

EXIT FROM ROUTINE 

k 

0019A6 

OA 

DD 





GO 

SVC 

X* DD * 


l 

0019A8 

0042 






DC 

AL2 { 66) 


■ • i 

0019AA 

057C 






DC 

AL2(OUTPUT-SECN0) 


\ 

0019AC 

057C 






DC 

AL2 { 0UTPUT-SECNO) 



0019AE 

OA 

DO 






SVC 

X’DO* 


? 

0019B0 

AO 







DC 

X • AO * 



0019BI 

42 







DC 

X * 42 ’ 



0019B2 

F57C 






DC 

AL2 C OUTPUT-BASE+REG) 



001984 

OA 

DO 






SVC 

X’DO* 


j 

0019B6 . 

AO 







DC 

X • AO • 



0019B7 

* 42 






* 

DC 

X ’42 ’ 



001988 

F 

5BE 






DC 

S(OUTPUT+66) 



0019BA 

07 

F8 






BCR 

UNC,Rll 



0019BC 

45 

BO 

F 

9A6 



G01 

BAL 

Rll,GO 
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! 

: 


001A78 

OA D5 




SVC 

X *05 • 

BYPASS TESTS IF NOT UCS PRINTER 

001ATA 

IB DD 



INIT05 SR 

R13 »R13 

CLEAR REGISTER 13 | 

001A7C 

91 40 

E 

196. 


TM 

406(141,X»40» 

LOAD REG 13 WITH THE CONTENTS ! 

001A80 

47 80 

F 

A86 


BC 

NONE»*+6 

,, OF REG 15 IF RUNNING 

001A84 ; 

18 DF 




LR 

R13,R15 

,, IN PROBLEM STATE 

001A86 

47 80 

F 

A94 

£ ' , 

BC 

NONE,INIT10 

BRANCH TO SKIP TITLE PRINTOUT 

001A8A 

91 02 

F 

004 


TM 

SNSW,X*02• 

IS TITLE PRINTOUT DESIRED j 

001A8E 

OA DO 




SVC 

X f D0 • 

PRINT TITLE 1 

001A90 

80 




DC 

X*80* 

tt-'' ■ ' i 

001A91 

20 




5 DC 

X *20* 

t, 32 CHARACTERS ■ 

001A92 

FE08 



* 

DC 

AL2(TITLE1-BASE^REGI 

,, ADDRESS OF TITLE 

001A94 

OA DO 



INITIO SVC 

X * DO* 

PRINT MESSAGE-WARNING NOT TO USE 

001A96 

04 




DC 

X*04» 

v, DEVICE UNDER TEST AS 

001A97 

2C 




DC 

X ;• 2 C • 

,, THE OUTPUT DEVICE 

001A98 

FE49 




DC 

A L 21WARN-B A S E♦REG) 

t t *' - . ■' t;' * *■ * || 

001A9A 

IB 00 




SR 

ROtRO 

CLEAR REGISTER 0 

001A9C 

91 10 

E 

180 


TM 

384(14),XH0* 

IS STORAGE PROTECT ON SYSTEM 

001AA0 

47 80 

F 

AAA 


BC 

NONE, INI T20 

BRANCH IF NOT 

001AA4 

09 OF 




ISK 

R0,R15 

PUT STORAGE KEY IN REG 0 

001AA6 

42 00 

F 

121 


STC 

ROtCAWKEY 

SAVE STOR KEY FOR PROGRAM USE 

001AAA 

OA DD 



INIT20 SVC 

X *DD • 

CONVERT PRINTER ADDR TO PRINT CHAR 

001AAC 

0002 




DC 

AL2(2) 

t, 2 BYTES 

001AAE 

00E2 




DC 

AL2(U1ADDR—SECN01 

„ ADDRESS OF PRINTER ADDRESS 

001ABO 

0752 




DC 

AL2(UAPRT-1—SECNO) 

,, ADDRESS OF PLACEMENT ! 

001AB2 

41 50 

0 

084 


LA 

R5,132(0,0) 

SET REG 5 FOR 132 POSITION PRINTER ! 

001AB6 

91 04 

F 

0E1 


TM 

UNITl+1 ,X *04• 

IS 120 POSITION PRINTER USED 

001ABA 

47 80 

F 

AC2 


BC 

NONE,*+8 

BRANCH IF NOT 120 POSITION V 

001ABE 

41 50 

0 

078 

* 

LA 

R5,120(0,0) 

SET GEN REG 5 FOR 120 POS PRINTER 

001AC2 

IB 00 



SR 

ROyRO 

CLEAR REGISTER 0 

001AC4 

58 10 

E 

198 


L 

R1,408(R0,R14) 

SET UP TIMEOUT CONSTANT FOR 100 MS. 

001ACS 

41 20 

0 

064 


LA 

(2,100(0,0) 

tt SET UP DIVISOR 

001ACC 

ID 02 




DR 

R0,R2 

,, DIVIDE TIMING CONSTANT BY 100 

001ACE 

50 10 

F 

IOC 

:„V ; ; • ' 

ST 

R1,SI0VR9 

,, STORE 100 MS CONSTANT FOR USE 

001AD2 

91 40 

F 

004 


' TM 

$NSW,X*40• 

IS SCOPE ROUTINE DESIRED 

001AD6 

47 80 

F 

ADE 


BC 

NONE,UCBAOO 

BRANCH IF NO 

001ADA 

45 80 

F 

678 

;.r 

BAL 

R8 ySCPROO ! 

GO TO SCOPE ROUTINE 





■ : * ' 

■ * ... 

lie 


BEGIN CHECKOUT 

-- ■' • ; V ; . 

001ADE 

41 00 

F 

A48 

UCBAOO LA 

ROtADCCW 

LOAD ADDR OF ALLOW DATA CK ♦ RD CCW 

001AE2 

50 00 

F 

048 


ST 

ROyCAW 

STORE CCW ADDR IN CAW 

001AE6 

92 00 

F 

122 


MVI 

SI0SWS,X*00* 

RESET SIO SWITCHES 

001AEA 

45 BO 

F 

228 


BAL 

RllySIO 

GO TO SIO ROUTINE 

001AEE 

95 14 

F 

11F 

v ' “ 

CLI 

tSWSAV+7,XU4* 

WAS CSW RESIDUAL COUNT OK 

001AF2 

47 80 

F 

BOO 


BC 

EQ,UCBA05 

8RANCH IF OK 

001AF6 

OA DO 




; SVC 

X*D0* 

ERROR MESSAGE-CSW RESIDUAL.COUNT ERR [ 

001AF8 

44 




DC 

X *44 • 

t f h 

Q01AiF9 

07 




DC 

X • 07 • 

ft : 

001AFA 

FE7C 




DC 

AL2(ERR002-BASE+RE6) 

'ft. | 

001AFC 

47 FO 

F 

92A 

* ♦ 

BC 

UNC,EXIT 


001B00 

D7 98 

F 

76C F 76C 

4 

UCBA05 XC 

WRAREA(153)yWRAREA 

r 

LOAD WRITE AREA WITH BLANKS 

001B06 

41 00 

F 

DFO 


LA 

RO,SHTCCW 

LOAD ADDR OF SHORT PRINT WRITE CCW 

001B0A 

50 00 

F 

048 


ST 

ROyCAW 

STORE PRINT CCW ADDR IN CAW 

001B0E 

92 04 

F 

122 

UCBA10 MVI 

SIOSWS,X*04 * 

RESET SIO SWITCHES- WAIT FOR SYNC CK 

001B12 

45 BO 

F 

228 


BAL 

RllySIO 

GO TO START I/O ROUTINE 

00 IB16 

45 80 

F 

9FA 


BAL 

Rll,SAVSTA 

GO SAVE STATUS ♦ SENSE INFO j 

001B1A 

91 01 

F 

122 


TM 

SIOSWS,X*01« 

IS INTERVENTION REQ SWITCH SET [ 
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00 IB IE 

47 

80 

F 

B2C 


BC 

NONE,UCBA17 

BRANCH IF OFF 

001B22 

OA 

DO 



UCBA15 

SVC 

X *D0 • 

ERROR MESSAGE-SYNC CHECK 

001B24 

44 





DC 

X *44 • 

,» 

001B25 

07 





DC 

X * 07 • 


001B26 

FE75 




DC 

AL2(ERR001-BASE+REG) 

ft 

001B28 

47 

FO 

F 

92A 


BC 

UNC,EXIT 


001B2C 

41 

00 

F 

DF8 

UCBA17 

LA 

RO ,DPRCCW 

LOAD ADDRESS OF DIAG PRINT CCW 

001B30 

50 

00 

F 

048 


ST 

R0,CAVi 

t» 

001B34 

92 

00 

F 

122 


MVI 

SIOSWS,X*OD« 

RESET SIO SWITCHES 

001B38 

45 

BO 

F 

228 

4 

BAL 

Rll,SIO 

GO TO START I/O ROUTINE 

001B3C 

06 

00 

F 

805 F UC 


OC 

CESTAT(l),C5WSAV*4 

OR CHAN END STATUS WITH PREVIOUS 

001B42 

95 

14 

F 

11F 


CLI 

CSWSAV+7,X*14* 

IS CSW RESIDUAL COUNT OK 

001B46 

47 

80 

F 

B54 


BC 

EQ,UCBBOO 

BRANCH IF OK 

001B4A 

OA 

DO 



UCBA20 

SVC 

X ’DO * 

ERROR MESSAGE-CSW RESIDUAL COUNT ERR 

001B4C 

44 





DC 

X *44 • 

11 

001B4D 

07 





DC 

X *07 • 

* » 

001B4E 

FE7C 




DC 

AL2(ERR002-BASE+REG) 


001B50 

47 

FO 

F 

92A 

* 

BC 

UNC,EXIT 


001B54 

45 

BO 

F 

9FA 

UCBBOO 

BAL 

Rll,SAVSTA 

GO SAVE STATUS ♦ SENSE INFO 

001B58 

45 

AO 

F 

A14 

$ 

BAL 

RIO,READS 

GO DO CHECK READ ♦ DATA READ 

001B5C 

91 

04 

F 

808 

UCBCOO 

TM 

SNSE,X *04* 

WAS UCB PARITY ON WITH WRITE 

001B60 

47 

10 

F 

BE8 


BC 

ALL,UCBEOO 

BRANCH IF ON 

001B64 

91 

02 

F 

805 


TM 

CESTAT,X*02 * 

WAS UNIT-CK ON AT CHANNEL-END 

001B68 

47 

80 

F 

B90 


BC 

NONE,UCBDOO 

BRANCH IF OFF 

001B6C 

41 

10 

0 

001 


LA 

Rl,1(0,0) 

SET MASK TO LOOK FOR PARITY CK 

001B70 

45 

BO 

F 

9D8 


BAL 

Rll,BITCKO 

GO CHECK IF ANY 7 BITS IN CK RD DATA 

001B74 

47 

FO 

F 

B86 

£ 

BC 

UNC,UCBC50 

NO BITS FOUND - BR NO PARITY ERRS 

001B78 

OA 

DO 



UCBC05 

SVC 

X*DO* 

ERROR MESSAGE -DATA REGISTER PROBLEM 

001B7A 

44 





DC 

X *44 * 

,, OR PARITY CIRCUITS PROBLEM 

001B7B 

07 





DC 

X *07* 

9 9 

001B7C 

FE8A 




DC 

AL2 < ERR004-BA$E*REG) 

9 9 

001B7E 

92 

83 

F 

751 


MVI 

SCHNUM,X'83• 

SET UP SEARCH FOR PRINT DAT REG FLT 

001BB2 

47 

FO 

F 

92A 


BC 

UNC,EXIT 


001B86 

OA 

DO 



UCBC50 

SVC 

X *D0 • 

ERROR MESSAGE - FALSE UNIT CK 

001B88 

44 





DC 

X *44 • 

9 9 

001B89 

07 





DC 

X*07* 

9 9 

001B8A 

FE91 




DC 

AL2( ERR0Q5-BASE+RE6) 

9 9 

001B8C 

47 

FO 

F 

92A 


BC 

UNC,EXIT 


001B90 

91 

02 

F 

806 

UCBDOO 

TM 

DESTAT,X *02• 

WAS UNIT-CK ON AT DEVICE-END 

001B94 

47 

80 

F 

BE8 


BC 

NONE,UCBEOO 

BRANCH IF OFF 

001B98 

41 

10 

0 

001 


LA 

Rl,1(0,0) 

SET MASK TO LOOK FOR PARITY CK 

001B9C 

45 

BO 

F 

9D8 


BAL 

Rll ,BITCKO 

GO CHECK IF ANY 7 BITS IN CK RD DATA 

00IBAO 

47 

FO 

F 

BAE 

j|| 

BC 

UNC,UCBD20 

NO BITS FOUND - BR NO PARITY ERRORS 

001BA4 

OA 

DO 




SVC 

X *D0 • 

ERROR MESSAGE- BUFFER PROBLEM 

001BA6 

44 





DC 

X *44 • 

9 , 

001BA7 

07 





DC 

X *07* 

9 9 

001BA8 

FE98 




DC 

AL2(ERR006-BASE+REG) 

9 9 

001 BAA 

47 

FO 

F 

92A 

4* 

BC 

UNC,EXIT 


001BAE 

41 

10 

0 

002 

UCBD20 

LA 

Rl,2(0,0) 

SET MASK TO LOOK FOR PRINT CKS 

001BB2 

45 

BO 

F 

9D8 


BAL 

Rll,BITCKO 

GO CHECK IF ANY 6 BITS IN CK RD DATA 

001BB6 

47 

FO 

F 

BC4 

$ 

BC 

UNC,UCBD30 

NO BITS FOUND - BR NO PRINT CKS 

00IBBA 

OA 

DO 



UCBD25 

SVC 

X *00 • 

ERROR MESSAGE - FALSE PRINT CHECKS 

001BBC 

44 





DC 

X *44 • 

99 COULD BE COMPARE 

001BBD 

07 





DC 

X' 07' 

9, CIRCUITS PROBLEM 

001BBE 

FE9F 




DC 

AL2(ERR007-BASE+REG) 

9 9 

001BC0 

47 

FO 

F 

92A 


BC 

UNC,EXIT 


001BC4 

91 

10 

F 

808 

UCB030 

TM 

SNSE,X * 10 * 

WAS EQUIP CK ON AT DEVICE END 
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001BC8 

47 

80 

F 

BD6 




BC 

NONE,UCBD40 

BRANCH IF OFF 

001BCC 

OA 

DO 





UCBD32 

SVC 

X *D0 * 

ERROR MESSAGE - FALSE EQUIP CK 

001BCE 

44 







DC 

X *44 * 

9 9 

001BCF 

07 







DC 

X * 07 * 

9 9 

00 IBDO 

FEA6 






DC 

AL2(ERR008-BASE4REG) 

9 9 

0CJLBD2 

47 

FO 

F 

92A 




BC 

UNC,EXIT 


001BD6 

91 

08 

F 

808 



UCBD40 

TM 

SNSE »X*08 1 

WAS DATA CK PRESENT AT DEVICE ENO 

001BDA 

47 

10 

F 

BE8 




BC 

ALL,UCBEOO 

BRANCH IF ON 

001BDE 

OA 

DO 





UCBD50 

SVC 

X*DO* 

ERROR MESSAGE -FALSE UNIT CHECK 

001BEO 

44 







DC 

X * 44 • 

9 9 

001BE1 

07 







DC 

X *07 * 

9 9 

001BE2 

FE91 






DC 

AL2(ERR005-8ASE+REG) 

9 9 

001BE4 

47 

FO 

F 

92A 




BC 

UNC,EXIT 


001BE8 

91 

04 

F 

0E1 



UCBEOO 

TM 

UNITl + 1,X *04 * 

IS 120 POSITION PRINTER USED 

001BEC 

47 

10 

F 

BFE 




BC 

ALL tUCBElO 

BRANCH IF 120 POSITION PRINTER 

001BF0 

D.5 

83 

F 

88F 

F 

76D 


CLC 

RDAR+1(132),WRAREA+l 

WAS DATA READ BACK GK-132 POSITIONS 

001BF6 

47 

80 

F 

C68 




BC 

EQ,UCBFOO 

BRANCH IF OK 

001BFA 

47 

FO 

F 

C08 




BC 

UNC.UCBE20 


001BFE 

D5 

77 

F 

88F 

F 

76D 

UCBE10 

CLC 

RDAR-t-1 (120) ,WRAREA*i 

WAS DATA READ BACK GK-120 POSITIONS 

001C04 

47 

80 

F 

C68 



Ar 

BC 

EQ,UCBFOO 

BRANCH IF OK 

001C08 

D2 

00 

F 

57D 

F 

88F 

T 

UCBE20 

MVC 

CMPAR+i (1) ,RDAR-t-1 

CHECK IF ALL BITS READ THE SAME 

OOICOE 

D2 

82 

F 

57E 

F 

57D 


MVC 

CMPAR«-2(131> ,CMPAR+1 

11 

001C14 

91 

04 

F 

0E1 




TM 

UN I T1 +1, X * 04 * 

IS 120 POSITION PRINTER USED 

0G1C16 

47 

10 

F 

C2A 




BC 

ALL »UC8E25 

,, BRANCH IF 120 POSITION 

00IC1C 

D5 

83 

F 

57D 

F 

88F 


CLC 

CMPAR+1(132),RDAR+1 

, 9 

001C22 

47 

80 

F 

C3A 




BC 

EQ ? UCBE50 

* » 

001C26 

47 

FO 

F 

C34 




BC 

UNC »UCBE30 

9 9 

001C2A 

D5 

77 

F 

57D 

F 

88F 

T 

UCBE25 

CLC 

CMPAR+1(120),RDAR*1 

» 9 

9 9 

001C30 

47 

80 

F 

C3A 




BC 

EQ,UCBE50 

9 9 

0Q1C34 

OA 

DO 





UCBE30 

SVC 

X • DO * 

ERROR MESSAGE- INTERMITTANT BUSS IN 

001C36 

44 







DC 

X *44* 

,, PROBLEM 

001C37 

07 







DC 

X * 07 * 

9 9 

001C38 

FEB4 






DC 

AL2(ERR010-8ASE+RE6) 

9 9 

001C3A 

41 

05 

F 

88F 



UCBE50 

LA 

RQ,RDAR+1IR5) 

SET UP MAXIMUM COUNT 

001C3E 

41 

10 

F 

88F 




LA 

Rl ,RDAR+1 

SET UP BEGINNING OF AREA 

001C42 

91 

40 

1 

000 



UCBE52 

TM 

0(R1),X *40 • 

CHECK FOR A 1 BIT 

001C46 

47 

80 

F 

C5E 




BC 

NONE , UCBE60 

BRANCH IF NO 1 BIT 

001C4A 

41 

11 

0 

001 




LA 

Rl ,1(Rl,0) 

UPDATE INDEX 1 BY 1 

001C4E 

15 

01 






CLR 

RO , Rl 

WERE ALL POSITIONS CHECKED 

001C50 

47 

60 

F 

C42 



3|t 

BC 

UNEQ,UCBE52 

GO CHECK NEXT POSITION 

001C54 

OA 

DO 






SVC 

X *D0 * 

ERROR MESSAGE - FOLDING PROBLEM 

001C56 

44 







DC 

X *44 • 

99 OR BUSS IN 1 BIT 

001C57 

07 







DC 

X * 07 * 

,» PROBLEM 

001C58 

FEB8 






DC 

AL2(ERR011-BASE+REG) 

9 9 

001C5A 

47 

FO 

F 

92A 



4* 

BC 

UNC,EXIT 


001C5E 

OA 

DO 





UCSE60 

SVC 

X *B0 * 

ERROR MESSAGE -BUSS IN PROBLEM 

001C60 

44 







DC 

X * 44 * 

,t PICKED UP BITS 

001C61 

07 







DC 

X * 07 ' 

9 9 

001C62 

FEC2 






DC 

AL2 ( ERR012-BASE+REG) 

9 9 

001C64 

47 

FO 

F 

92A 




BC 

UNC,EXIT 


001C68 

91 

08 

F 

808 



UCBFOO 

TM 

SNSE,X*03* 

WAS DATA-CK PRESENT 

001C6C 

47 

80 

F 

C7A 




BC 

NONE * UCBF10 

BRANCH IF NO 

0GIC70 

OA 

DO 





UCBF05 

SVC 

X *00 * 

ERROR MESSAGE- FALSE DATA CHECK 

001C72 

44 







DC 

X * 44 * 

9 9 

00IC73 

07 







DC 

X 9 07 * 

9 9 

001C74 

FEC9 






DC 

AL2(ERR013-BASE+REG) 

9 9 

001C76 

47 

FO 

F 

92A 



4* 

BC 

UNC,EXIT 


001C7A 

41 

05 

F 

80A 



UCBF10 

LA 

RO,CXRDAR+i(R5) 

SET UP FOR MAXIMUM COUNT 

001C7E 

41 

10 

F 

BOA 




LA 

R1,CKRDAR+1 

INITIALIZE INDEX 1 
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SCAN, 1403 
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F80C 

2821 

SCAN, 

1403 

UNIVERSAL 

CHARACTER SET 

' ‘ • j 

F80C5 

RESIDENT 

AND CONTROL 

ROUTINE OVERLAY 1 



F80C5 

RESIDENT 

AND CONTROL 

ROUTINE 

OVERLAY 1 


f 

001C82 

91 

04 

1 000 



UCBF15 

TM 

0(R1) ,X*04 * 

CHECK FOR PLC BIT 

■ • 








* 





001C86 

47 

80 

F C98 




BC 

NONE,UCBF20 

BRANCH IF NO PLC BIT 

001034 

41 

10 

0 

001 




UC8K00 

LA 

Rl,1(0,0) 

CHECK FOR PARITY CHECKS-SET MASK 

001C8A 

41 

11 

0 001 




LA 

R1,1(R1,0) 

UPDATE INDEX BY 1 

001D38 

45 

BO 

F 

908 






BAL 

Rll ,BITCKO 

ft GO CHECK FOR 7 BITS IN CK READ 

001C8E 

15 

01 





CLR 

R0,R1 

WERE ALL POSITIONS CHECKED 

00I03C 

47 

FO 

F 

044 






BC 

UNC,UCBK10 

,, NO BITS FOUND-BR NO PARITY ERR 

00IC90 

47 

60 

F C82 




BC 

UNEQ*UCBF15 

GO CHECK NEXT POSITION 

001D40 

47 

FO 

F 

878 






BC 

UNC,UCBC05 

,, PARITY ERRORS FOUND 

001C94 

47 

FO 

F CA2 




BC 

UNC vUCBGOO 










* 




i l 







* 




i 001D44 

41 

99 

0 

001 




UCBK10 

LA 

R9,l(R9,0) 

UPDATE INDEX 9 

00IC98 

PA 

00 




UCBF20 

SVC 

X*DO* 

ERROR MESSAGE- PROBLEM SETTING PLC 

001048 

41 

00 

F 

E31 






LA 

RO»DATAl+9 

SET UP MAXIMUM COUNT j 

001C9A 

44 






DC 

X *44* 

,, WITH BLANKS 

001D4C 

15 

90 








CLR 

R9 f R0 

WERE ALL BITS CHECKED 

001C9B 

07 






DC 

X*Q7* 

t» 

001D4E 

47 

60 

F 

CAC 






BC 

UNEQ,UCBG10 

GO GET NEXT BIT 

001C9C 

FEDO 





DC 

AL2 C ERR014-BASE4REG) 

# t 









* 




i 

001C9E 

47 

FO 

F 92A 




BC 

UNC,EXIT 


001D52 

92 

FF 

F 

760 




UCBLOO 

MV! 

WRAREA+1,X *FF * 

LOAD WRITE AREA WITH ALL BITS ! 







♦ 




00ID56 

02 

82 

F 

76E 

F 

76D 




MVC 

WRAREA+21131),WRAREA*T ,, 

001CA2 

07 

98 

F 76C 

F 

76C 

UC8G00 

XC 

WRAREAI153) ,WRAREA 

CLEAR WRITE DATA AREA 

001D5C 

41 

00 

F 

DF8 






LA 

RO,DPRCCW 

LOAO ADDRESS OF PRINT WRITE CCW 

001CAB 

41 

90 

F E28 




LA 

R9,DATAI 

INITIALIZE INDEX 9 TO DATA-FIELO 

001060 

.50 

00 

F 

048 






ST 

RO,CAW 

STORE PRINT CCW ADDR IN CAW 

001CAC 

02 

00 

F 760 

9 

00© 

UCBG10 

MVC 

WRAREA+l(It,019) 

SET A DATA BYTE IN WRITE AREA 

001D64 

92 

00 

F 

122 






MVI 

SI0SWS,X*00* 

RESET START I/O SWITCHES 

001CB2 

41 

00 

F EOO 




LA 

RO* PRCCW2 

LOAD AODR OF DIAG WRITE CCW FOR 1 

001068 

45 

BO 

F 

228 






BAL 

Rll,$10 

GO TO START I/O ROUTINE 

001CB6 

50 

00 

F 048 




ST 

RO tCAW 

STORE CCW ADDR IN CAW 









* 





00IC8A 

92 

00 

F 122 




MVI 

$I0SWS,X«00* 

RESET SIO SWITCHES 

001D6C 

45 

BO 

F 

9FA 






BAL 

Rll ,SAVSTA 

GO SAVE STATUS ♦ SENSE DATA 

001CBE 

45 

BO 

F 228 



$ 

BAL 

RlltSIO 

GO TO START I/O ROUTINE 

001070 

45 

AO 

F 

A14 






BAL 

RIO,READS 

GO DO CHECK READ 4 DATA READ 

001CC2 

45 

BO 

F 9FA 




BAL 

Rll,SAVSTA 

GO SAVE STATUS AND SENSE INFO 

001074 

91 

04 

F 

0E1 






TM 

UNITl+1,X *04 * 

IS 120 POSITION PRINTER USED 

001CC6 

45 

AO 

F A14 




BAL 

RIO,READS 

GO DO CHECK READ 4 DATA READ 

001078 

47 

10 

F 

D8A 






BC 

ALL,UCBL40 

BRANCH IF 120 POSITION PRINTER 







* 




00107 C 

05 

83 

F 

76D 

F 

88F 




CLC 

WRAREA+l(132) ,RDAR+1 

WAS DATA READ OK -132 POSITIONS 

001CCA 

05 

00 

F 88F 

F 

?6D 


CLC 

RDAR+im,WRAREAn 

WAS 1ST BYTE READ AS EXPECTED 

001082 

47 

60 

F 

D94 






BC 

UNEQ,UCBL50 

BRANCH IF NOT OK 

001C00 

47 

80 

F D34 



$ 

BC 

EQtUCBKOO 


001086 

47 

FO 

F 

09 E 






BC 

UNC,UCBL60 


| 001CD4 

95 

FF 

F 76D 




CLI 

WRAREA+1,X *FF * 

IS DATA FF BEING CHECKED 

00108A 

D5 

77 

F 

760 

F 

88F 


UCBL40 

CLC 

WRAREA+l(120),RDAR+X 

WAS DATA READ OK -120 POSITIONS 

001COS 

47 

80 

F CE4 




BC 

£Q,UC8G25 

BRANCH IF DATA FF 

001D90 

47 80 

F 

D9E 






BC 

EQ 5 UCBL6C 

BRANCH IF OK 

001CDC 

95 

00 

F 88 F 




CLI 

RDAR+I,X *00 1 

WERE NO BITS IN FIRST BYTE 









* 





001CEO 

47 

60 

F 01A 




BC 

UNEQ,UCBHOO 

BRANCH IF BITS PRESENT 

001D94 

OA 

DO 






UCBL50 

SVC 

X *D0* 

ERROR MESSAGE -PRINT BUFFER PROBLEM ( 







* 




001096 

44 









DC 

X *44* 

,, ABOVE POSITION 1 ! 

001CE4 

41 

10 

0 OGi 



UC8G25 

LA 

Ri,1C 0,01 

CHECK FOR PARITY PROBLEMS-SET MASK ! 

001097 

07 









DC 

1*07* . ; . 


f. 001CE8 

45 

BO 

F 908 




BAL 

Rll,BTTCKO 

GO CHECK FOR 7 BITS IN, CK READ 

001098 

FEF3 








DC 

AL2(ERR019-SASE+REG) 

tt . -!• 

001CEC 

47 

FO 

F 010 



* ' 

BC 

UNC,UCBG50 

,, NO BITS FOUND-BR NO PARITY 

00109A 

V 47 

FO 

F 

92A 







UNC,EXIT ' 


001CF0 

91 

02 

F 8 05 




TM 

CESTAT,X*02 * 

WAS UNIT CK ON FOR WRITE CHAN-END 

00109§ 


0* 

F 


F 

76 E- 


UC8L60 

XC 

WRAREA*2(1311,WRAREA+2 CLEAR WRITE DATA AREA 

0O1CF4 

47 

BO 

F 006 




BC 

NONE *UCBG40 

BRANCH IF HQ UltIT CK i 

0010A4 


00 

0 

EOO 






LA 

R0,PRCCW2 

LOAD ADDR OF DIAG WRITE CCW- 1 BYTE 1 

001CF8 

OA 

DO 





SVC 

X*DQ* "v:. 

ERROR MESSAGE- PRINT DATA-REG PROS ! 

001DA8 

50 

00 

F, 

048 






ST 

RO »CAW 

STORE CCW ADDRESS IN CAW 

00IGFA 

44 






DC 

X*44* • 

v : ; Vt-v . . - . LOST BITS 

001DAG 

92 

GO 

F 

122 






MVI 

siosws,x»oo* • 

RESET START I/O SWITCHES 

OOICFB 

07 






DC 

X *07* 

• t t- . • 

001DB0 

45 

BO 

F 

228 






BAL 

RlltSIO 

GO TO START I/O ROUTINE 

OOtCFC 

FED? 





DC 

AL2<ERRO15-8ASE4R60I 

•• V''. " •'' 









4;: 



l :.. 1 ' ' ' 


001CFE 

92 

83 

F 751 




MVI 

$CHNUM,X*83* 

SET UP SEARCH FOR PRINT DAT REG FLT ^ 

O0LOB4 

45 

80 

F 

9PA 






BAL 

Rll,SAVSTA 

GO SAVE STAYUS 4 SENSE DATA 

001002 

47 

FO 

F '92 A 



,: 

BC 

UNC,EXIT 


001DB8 

45 

AO 

F 

A14 






BAL 

RIOrREADS 

GO DO CHECK READ 4 DATA READ 

001006 

OA 

DO 




UCBG40 

SVC 

X * DO 1 

ERROR MESSAGE - PRINT BUFFER PROS* 

001DBC 

91 

04 

F 

0E1 




4- 


TM 

UNITl+1,X *04 * 

IS 120 POSITION PRINTER USED 

j 001008 

44 






DC 

X*44* 

ft LOST BITS 

001DC0 

47 

10 

F 

002 






BC 

ALL,UCBL70 

BRANCH IF 120 POSITION PRINTER 

J 001009 

07 






DC 

X * 07* 

, , 

001DC4 

D5 

82 

F 

76E 

F 

890 




CLC 

WRAREA+2{131),RDAR+2 

WAS DATA READ OK -132 POSITION 

00IDOA 

FEOE 





DC 

AL2(ERR016-BASE4REG) 

t» 

001DCA 

47 

60 

F 

DE4 






BC 

UNEQ,UCBL75 

BRANCH NOT OK 

> 00100C 

1 

47 

FO 

F 92 A 



; * : 

BC 

UNC,EXIT 


OOIDCE 

47 

FO 

F 

DOC 






BC 

UNC,UCBL72 


{ 001D10 

OA 

DO 




UCBG50 

SVC 

X *00* 

ERROR MESSAGE - BUSS IN PROBLEM 

001DD2 

05 

76 

F 

76E 

F 

890 


UCBL70 

CLC 

WRAREA+2C119),RDAR+2 

WAS DATA READ OK -120 POSITION 

l 001012 

44 






DC 

X •44-* 

9 , 

001DD8 

47 

60 

F 

DE4 






BC 

UNEQ,UCBL75 

BRANCH IF NOT OK 

I 001013 

07 






OC 

X s 07* 

99 

00IDDC 

92 

82 

F 

751 




UCBL72 

MVI 

SGHNUM,X*82 * 

SET SEARCH NUMBER FOR ROUTINE 2 

1 001DI4 

FEE5 





DC 

AL2 ( ERR017-BASE+REG) 

9 9 

0010E0 

47 

FO 

F 

9A4 






BC 

UNC,EX112 


001016 

47 

FO 

F 92A 




BC 

UNC,EXIT 





















* 




001DE4 

OA 

00 






UCBL75 

SVC 

X *00 * 

ERROR MESSAGE -INSERT BLANKS PROBLEM 

j 00101A 

91 

80 

F 760 



UCBHOO 

TM 

WRAREA+l,X *80 * 

IS 0 BIT BEING WRITTEN 

001DE6 

44 









DC 

X * 44 * 


00101E 

47 

80 

F D2A 




BC 

NONE,UCBH30 

BRANCH IF NOT 0 BIT 

001DE7 

07 









DC 

X • 07 * 

, , 

\ 






* 




001DE8 

FE FA 








OC 

AL2CERRQ20-8ASE+REG) 


001022 

95 

CO 

F 88F 




CLI 

RDAR+1,X *C0 1 

WAS 0 + I BIT READ BACK 

001DEA 

47 

FO 

F 

92A 






BC 

UNC «EXIT 


j 001026 

i 

47 

80 

F 044 



* 

BC 

EQ.UCBK10 

BRANCH IF 0 + 1 BIT, FOLDING EXISTS 










! 00102A 

OA 

DO 




UCBH30 

SVC 

X *00 * 

ERROR MESSAGEMNTERMITTANT HOT BITS 









* 



CONSTANTS 


! 00102C 

44 






DC 

X *44 * 

,, 

f 








❖ 



CCW TABLE 


j 001020 

07 






DC 

X • 07 ' 

9 9 

001DEE 










CNOP 

0,8 

DOUBLE WORD ALIGNMENT 

001026 

rcEC 





DC 

AL2 ( ERR018-BASE+RE6) 

9 9 

001DEE 

07 00 







BCR 

0,0 


! 001D30 

47 

FO 

F 92A 




BC 

UNC,EXIT 


001DF0 

05 

00176D 200C 

0083 

SHTCCW 

CCW 

X *05 *, WRAREA+l ,X *20 • , 
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000004 

R4 

EQU 

4 






000005 

R5 

EQU 

5 






000006 

R6 

EQU 

6 






000007 

R7 

EQU 

7 






000008 

R8 

EQU 

8 






000009 

R9 

EQU 

9 






OOOOOA 

RIO 

EQU 

10 






OOOOOB 

RU 

EQU 

11 






OOOOOC 

R12 

EQU 

12 






OOOOOD 

R13 

EQU 

13 






OOOOOE 

R14 

EQU 

14 






OOOOOF 

R15 

EQU 

15 







♦ 

£ 


CONDITION CODE 

EQUATES 





000008 

NONE 

EQU 

8 

ALL OFF 

0 




000005 

ANY 

EQU 

5 

ANY ON 


l 


3 

000001 

ALL 

EQU 

1 

ALL ON 




3 

000004 

SOME 

EQU 

4 

MIXED 


1 



000009 

NMIXED 

EQU 

9 

NOT MIXED 

0 



3 

000008 

EQ 

EQU 

8 

EQUAL 

0 




000006 

UNEQ 

EQU 

6 

NOT EQUAL 


1 

2 


000004 

LO 

EQU 

4 

LOW 


1 



000002 

HI 

EQU 

2 

HIGH 



2 


000008 

• l 

EQU 

8 

ZERO 

0 




000002 

PQS 

EQU 

2 

GREATER ZERO 



2 


000008 

CCO 

EQU 

8 

AVAILABLE 

0 




000004 

CC1 

EQU 

4 

CSW STORED 


I 



000002 

CC2 

EQU 

2 

BUSY 



2 


OOOOOF 

UNC 

EQU 

15 

UNCQNOJTIONL 

0 

1 

2 

3 

OOOOOD 

NOTBSY 

EQU 

13 

NOT BUSY 

0 

1 


3 

000007 

NZ 

EQU 

7 

NOT CC 0 


1 

2 

3 

000004 

NEG 

EQU 

4 

NOT ZERO -AND- 


1 



OOOOOC 

ZNEG 

EQU 

12 

MIXED OR NONE 

0 

1 



OOOOOB 

CSWNST 

EQU 

11 

CSW NOT STORED 

0 


2 

3 

OOOOOD 

NHIGH 

EQU 

13 

NOT HIGH 

0 

1 


3 

001000 

BASE 

EQU 

SECNO 






OOFOOO 

REG 

EQU 

X *FOOO• 








END 
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1 
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1 
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IBM MAINTENANCE 
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" j 
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j 
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J F80C 2821 SCAN, 1403 UNIVERSAL CHARACTER SET 








F80C 

2821 SCAN, 1403 UNIVERSAL CHARACTER SET 







F80C5 RESIDENT 

AND 

CONTROL 

ROUTINE 

OVERLAY 1 








F80C5 

RESIDENT 

AND 

CONTROL 

ROUTINE 

OVERLAY 1 







| POST ASSEMBLY DATA* 












: 




1982, 

19CE , 

1A76, 

1A92, 

1A98, 

1AFA, 

1B26 




















1B4E, 

1B7C , 

1B8A, 

1BA8 , 

1BBE, 

1BD0, 

1BE2 



1 

















1C38, 

1C58, 

1C62, 

1C74, 

1C9C» 

1CFC, 

1D0A 



■ 

















1D14, 

1D2E, 

1D98, 

1DE8 





■ . i 

REFERENCES 

TO DEFINED 

SYMBOLS. 











4 

1228 

SIO 

1A26, 

1A3C, 

IAEA, 

XB12, 

1B38, 

1CBE, 

1D68 




















1DBG 























1 

F 

UNC 

1284, 

12A0, 

12C8, 

12F4, 

1308, 

1342, 

135E 



1 

8 

Z 

13B6 














137C, 

1386, 

13AE, 

13BE , 

13C8, 

1408, 

143C 



1 

8 

EQ 

168A, 

1AF2, 

1B46, 

1BF6, 

1C04 * 

1C22 * 

1C30 




. 




1448, 

1456, 

147C, 

14F2 , 

14FC, 

1516, 

1546 


i 

* 



1CD0, 

1CD8, 

1026, 

1D90 











1550, 

1562, 

16A0, 

16AA, 

171C , 

1992, 

19BA 



2 

19A6 

GO 

1944, 

194E, 

1974, 

197E , 

1988, 

19BC 









19C 6, 

19D4, 

19EE, 

19F4 , 

1A12, 

1A40, 

1AFC 


■ . ? 

,' 1 

2 

HI 















1B28, 

1B50, 

1B74, 

1B82, 

1B8C , 

18A0 , 

1BAA 


j. 

i 

4 

LO 















1BB6, 

iBCO, 

1BD2, 

1BE4, 

1BFA, 

1C26, 

1C5 A 



i 

7 

NZ 

1708 














1C64, 

1C76, 

1C94, 

1C9E, 

1CEC, 

1002, 

1D0C 



i 

0 

RO 

1274, 

1484, 

1488, 

14A4, 

14B0 , 

1506, 

1552 








ID 16, 

1D30, 

1D3C, 

1D40 , 

1D86, 

1D9A, 

1DCE 






19DA, 

19DE, 

1A1A, 

1A1E , 

1A30, 

1A34, 

1A9A 








1DE0, 

IDEA 











1A9A, 

1AA4, 

1AA6, 

1AC2, 

1AC2, 

1AC4, 

1ACC 





3 

1000 

BASE 

129E, 

12C6, 

12F2, 

1338, 

137A, 

1384, 

1406 






1ADE, 

1AE2, 

1B06, 

1B0A, 

1B2C, 

1B30, 

1C3A 








1446, 

1454, 

14F0, 

14FA, 

1544, 

1680, 

196C 






1C4E, 

1C7A , 

1C8E, 

1CB2, 

1CB6, 

1D48, 

1D4C 








19B2, 

19CE, 

1A76, 

1A92 , 

1A98 , 

1AFA, 

1B26 


> 




1D5C, 

1D60, 

1DA4, 

1DA8 






• 





1B4E, 

1B7C, 

1B8A, 

1BA8 , 

1BBE , 

1BD0, 

1BE2 



i 

i 

R1 

1228, 

1252, 

1256, 

1438, 

19E2, 

1AC4 , 

1 ACE 








1C38, 

1C58, 

1C62, 

1C74, 

1C9C, 

1CFC, 

IDO A 


. i 




1B6C, 

1898, 

1BAE, 

1C3E, 

1C42, 

1C4A, 

1C4A 








ID 14, 

102E, 

1D98, 

1DE8 









1C4E, 

1C7E, 

1C82, 

1C8A , 

1C8A, 

1C8E, 

1CE4 





4 : 

175C 

BREX 

105D 

. 







1 




1034 











4 

1758 

CLRC 

123E 








| 

l 

2 

R2 

19D8, 

19EA, 

1AC8, 

1ACC 






o 


4 

192A 

EXIT 

1AFC , 

1B28, 

1B50, 

1882, 

1B8C , 

1BAA, 

18C0 


. | 

i 

3 

R3 

13FE, 

143E, 

144C , 

147C 











1BD2, 

1BE4, 

1C5A, 

1C64, 

1C76, 

1C9E, 

1D02 


i 

i 

4 

R4 

13A6, 

13AA, 

13D4, 

13E6, 

1506, 

1512, 

1552 








1D0C, 

ID 16, 

1D30, 

1D9A, 

IDEA 








155E 











4 

19F6 

EXTM 

19E2 









i, 

5 

R5 

1274, 

1280, 

19D8, 

1AB2 • 

1 ABE, 

1C3A, 

1C7A 





1 

48 

HCAW 

1248, 

149A, 

16FA 






t 

i 

6 

R6 












1 

40 

HCSW 

1300, 

131A , 

1346, 

134E , 

1392, 

13C2, 

13E0 



i ■ 

7 

R7 

1362, 

141C, 

1550 












14DE, 

151A 








l 

@ 

R8 

16A0, 

1932, 

19A0, 

1ADA 







* 

1 

78 

HION 










i 

9 

R9 

1228, 

1438, 

1678, 

1696, 

16EC, 

16F0, 

1CA8 





1 

8 

NONE 

1270, 

12FC, 

13D0, 

1418, 

14BC , 

1534, 

192E 






1D44, 

1D44, 

1D4C 












193A, 

199C, 

1A80, 

1A86, 

1AA0, 

1ABA, 

1AD6 



1 

l 

ALL 

125E, 

12AC, 

12D0, 

12D8, 

1330, 

135A, 

1372 








IB IE, 

1B68, 

1B94, 

1BC8, 

1C46 , 

1C6C , 

1C86 






138E, 

139C, 

13FA, 

1430, 

14AC , 

14C4* 

1400 








1CF4, 

1D1E 










■ *, 

1692, 

16A6, 

1710, 

1718, 

1964, 

19E6 , 

1A6E 





1 

100D 

NUTE 













I860, 

1BDA, 

1BEC, 

1C 18, 

1D78 * 

10C0 






1 

188E 

ROAR 

1982, 

198C, 

1A2A, 

1A2A, 

1A48, 

1A50, 

1BF0 



I 

5 

ANY 

1266, 

1304, 

133E, 

134A, 

1410, 

1424, 

1524 








1BFE, 

1C08, 

1C 1C, 

1C2A , 

1C3A, 

1C3E, 

ICCA 



4 ' 

1048 

CAW 

122C, 

1242, 

1248, 

1292, 

12B4 , 

12E0, 

1316 








1CDC, 

1D22, 

107C, 

1D8A, 

1DC4 , 

1DD2 







1464, 

1488, 

148C , 

1496, 

149A, 

154A, 

169A 





1 

1808 

SNSE 

1A0C, 

1B5C, 

1BC4, 

1BD6, 

1C68 








16F0, 

16F4, 

16FA, 

1A1E, 

1A34, 

1AE2 , 

1B0A 





4 

1004 

SNSW 

126C, 

12A8, 

12D4, 

12F8, 

138 A, 

14A8, 

168 £ 






1B30, 

1CB6, 

1D60, 

1DA8 











16A2, 

170C, 

1714t 

192A, 

1936, 

1998, 

IA8A 



1 

8 

CCO 

127C, 

155A 













1AD2 









1 

4 

CC1 

13BA, 

150E 










1 

4 

SOME 

12A4 









1 

2 

CC2 












1 

10E1 

U10P 










8 

1040 

CSW 












1 

6 

UNEQ 

1352, 

1C50, 

1C90, 

1CE0, 

104E , 

1082, 

1DCA 



4 

19BC 

G01 

1992 














1DD8 









2 

I9CA 

G02 

1964 











16 

1E49 

WARN 

1A98 








1' 

2 

100A 

ICM 



* 









1 

C 

ZNEG 

152C 









1 

4 

NEG 












8 

1A48 

ADCCW 

1ADE 








| 

1 

2 

POS 












250 

157C 

CMP AR 

1C08, 

1C0E, 

1C0E, 

1C1C, 

1C2A 




!• 

1 

A 

RIO 

16AE, 

1A40, 

1B58, 

1CC6, 

1D70, 

1DB8 






4 

11A4 

CSWAG 

13EA,* 

13F0, 

13F6, 

140C * 

1414, 

146C , 

1A06 


• j. 

1 

8 

Rll 

143C , 

16DC, 

1944, 

194E , 

1974, 

197E, 

1988 





9 

1E28 

DATA1 

1CA8, 

1D48 







, 1 




19BA , 

19BC, 

19EE, 

19F0, 

19F0 , 

19F4, 

1A12 





4 

1936 

EX IT 1 

192E 












1A26, 

1A3C, 

IAEA, 

1B12, 

1B16, 

1B38, 

1B54 





2 

19A4 

EXIT2 

193A, 

199C, 

1DE0 










1B70, 

1B9C, 

1BB2, 

1CBE, 

1CC2 , 

1CE8 , 

1D38 





1 

100E 

FLAG1 









| 




1D68, 

1D6C , 

1DB0, 

1DB4 








1 

100F 

FLAG2 










. I 

C 

R12 

123E, 

124E, 

1278, 

1382 , 

13D8 , 

14A0, 

150A 





5 

1010 

INPSW 









1 




1556, 

1678, 

1682, 

1686, 

1696, 

16C2, 

1700 





1 

D 

NHIGH 

16D2 








j 

j; 




1704, 

1A64, 

1A64, 

1A66 








6 

1A14 

READS 

1B58, 

1CC6, 

1D70, 

1DB8 






1 

D 

R13 

1248, 

1300, 

131A , 

1346, 

134E, 

1392, 

13C2 




i 

1 

1A60 

RTN01 

1015 








J 




13E0, 

149A, 

14DE, 

151A, 

16FA, 

1A7A, 

1A7 A 



6 

!. 

3 

1000 

SECNO 

1292, 

1294, 

12B4, 

12B6, 

12E0, 

12E2, 

1316 


i 




1A84 










s - 




1318, 

1324, 

1326, 

136A , 

136C, 

1464, 

1466 



1 

E 

R14 

1274, 

1506, 

1552, 

1AC4 







! 




146C , 

146E, 

1474, 

1476, 

1496, 

1498, 

14E8 



1 

F 

R15 

1A84, 

1AA4 













14EA, 

153C , 

153E, 

1762, 

195C , 

195E, 

19 AA 



1 

FOOO 

REG 

129E, 

12C 6 * 

12F2, 

1338, 

137A , 

1384, 

1406 








19AC, 

1AAE, 

1AB0, 

1F01 









1446, 

1454, 

14F0, 

14FA, 

1544, 

1680, 

196C 




" - v • 

[■ 

1 

1120 

- SENSE 

1238, 

1238, 

136A, 

136E , 

1420, 

142C, 

1474 



DATE 16JUN65 

22JUN6S 

15JUL65 

15DEC65 15MAR66 

15N0V66 



ID 

F80C-5 

DATE 

16JUN65 

22JUN65 

15JUL65 

15DEC65 

15MAR66 

15N0V66 


ID 

F80C-5 

EC 124263 

124249 

124265 

125601 125632 

125655 



PAGE 

10 

EC 

124263 

124249 

124265 

125601 

125632 

125655 


PAGE 

IOA j 


9 0 0 0 0 


ooooooooo 


o o o o o 


O 0 O O 


O 0-0 O O' o 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


P/N 840223 


F80C 2821 SCAN, 1403 UNIVERSAL CHARACTER SET 
F80C5 RESIDENT AND CONTROL ROUTINE OVERLAY 1 


8 

1220 

SI0VR8 

14DE, 

14E8, 

1500, 

1500 




1530, 

153C 



4 

HOC 

SI0VR9 

13A6, 

13D4, 

1ACE 


8 

1568 

SNSCCW 

1484 




2 

119F 

STATSV 

13A0, 

13A0, 

13C2, 

13E0 

8 

1060 

SVNPSW 





8 

1020 

SVOPSW <’ 





16 

1E08 

TITLE1 

1A92 




2 

10E2 

U1ADDR 

1A66, 

1AAE 



4 

1ADE 

UCBAOO 

1AD6 




6 

1B00 

UCBA05 

1AF2 




4 

1B0E 

UCBA10 





2 

1B22 

UCBA15 





4 

1B2C 

UCBA17 

IB1E 




2 

1B4A 

UCBA20 





4 

1B54 

UCBBOO 

1B46 




4 

IB5C 

UCBCOO 





2 

1B78 

UCBC05 

1D40 




2 

1B86 

UCBC50 

1B74 




4 

1B90 

UC8D00 

1668 




4 

1BAE 

UCBD20 

IBAO 




2 

1BBA 

UCBD25 





4 

1BC4 

UCBD30 

1BB6 




2 

1BCC 

UCB032 





4 

1BD6 

UCBD40 

1BCS 




2 

1BDE 

UCBD50 





4 

1BE8 

UCBEOO 

I860, 

1894, 

1BDA 


6 

1BFE 

UCBE10 

1BEC 




6 

1C08 

UCBE20 

1BFA 




6 

1C2A 

UCBE25 

1C 18 




2 

1C34 

UCBE30 

1C26 




4 . 

1C3A 

UC8E50 

1C 22, 

1C30 



4 

1C42 

UC8E52 

1C50 




2 

1C5E 

UCBE60 

1C46 




4 

1C68 

UCBFOO 

1BF6, 

1C 04 



2 

1C70 

UC8F05 





4 

1C7A 

UCBF10 

1C6C 




4 I. 

1C82 

UCBF15 

1C90 




2 

1C98 

UCBF20 

1C86 




6 

1CA2 

UCBGOO 

1C94 




6 

1CAC 

UCBG10 

1D4E 




4 

1CE4 

UCBG25 

1CD8 




2 

1D06 

UCBG40 

1CF4 




2 

1D10 

UCBG50 

1C EC 





4 1D1A UCBHOO 1CE0 

2 1D2A UCBH30 1D1E 

4 1D34 UCBKOO 1CD0 

4 1D44 UCBK10 1D26, 1D3C 

4 1D52 UCBLOO 

6 1D8A UCBL40 1D78 

2 1D94 UCBL50 1D82 


6 

1D9E UCBL60 

1D86, 

1D90 



6 

1DD2 UCBL70 

1DC0 




4 

1DDC UCBL72 

1DCE 




2 

1DE4 UCBL75 

1DCA, 

1DD8 



1 

176C WRAREA 

193E, 

1948, 

1B00, 

1B00, 



1CA2, 

1CAC, 

1CCA, 

1CD4, 



1056, 

1D7C, 

1D8A, 

1D9E, 



1DF0, 

1DF8, 

1E00 



l 1000 XF80C5 


NO ERROR DETECTED IN ABOVE ASSEMBLY 


DATE 16JUN65 22JUN65 15JUL65 15DEC65 15MAR66 

EC 124263 124249 124265 125601 125632 


PAGE 12 


151A, 1520, 1528 


13P0, 1A00 j 

■ - . ... ? - ' I 

■ ■. . ■ [ 


1BF0, 1BFE, 1CA2 
1D1A, 1D52, 1056 

1D9E, 1DC4, 1DD2 


15N0V66 :ID F80C-5 

125655 PAGE 12 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


F80C 2821 SCAN, 1403 UNIVERSAL. CHARACTER SET 
F80C5 CONTROL ROUTINE OVERLAY 2 0 : V 


P/N 840223 ! 
PAGE 12A ! 


80C5 TITLE F80C5 CONTROL ROUTINE OVERLAY 2 
XF80C5 START 4096 l 

USING *,15 I 

«********************4^*:M*********«**************************$******* 

* RESIOENT LABELS ADDRESSED BY OVERLAYS 

$$**************«**4*****>l^***************3M'*********4(***********$**** 

^st^***#*******#**##****************^*****^************************^ 


001000 

SECNO 

EQU 

♦ 

001004 

SNSW 

EQU 

SECNO+4 

001040 

CSW 

EQU 

SECNG+64 

001048 

CAW 

EQU 

SECNO+72 

0010E0 

UNIT1 

EQU 

SECNO+224 

0010E2 

U1ADDR 

EQU 

SECNO+226 

001118 

SI0VR3 

EQU 

SECNG+280 

001108 

SI0VR4 

EQU 

SECNO+264 

00110C 

SI0VR9 

EQU 

SECNO+268 

001122 

SIOSWS 

EQU 

SECN0+290 

00119F 

STATSV 

EQU 

SECNO+415 

0011A4 

CSWAG 

EQU 

SECN0+420 

001121 

CAWKEY 

EQU 

SECNO+289 

001120 

SENSE 

EQU 

SECNO+288 

001228 

SIO 

EQU 

SECNO+552 

00157C 

SCPDAT 

EQU 

SECN0+1404 

001678 

SCPROO 

EQU 

SECNO+1656 

001751 

SCHNUM 

EQU 

SECNO+1873 

001753 

UAPRT 

EQU 

SECNO+1875 


00176C 

WRAREA 

EQU 

SECN0+1900 

001805 

CESTAT 

EQU 

WRAREA+153 

001806 

DESTAT 

EQU 

WRAREA+154 

001807 

AGSTAT 

EQU 

WRAREA+155 

001808 

SNSE 

EQU 

WRAREA+156 

001809 

CKRDAR 

EQU 

WRAREA+157 

00188E 

ROAR 

EQU 

WRAREA+290 

001927 

CKDATA 

EQU 

WRAREA+443 

001928 

EXPECT 

EQU 

WRAREA+444 

001929 

PROGSW 

EQU 

WRAREA+445 




00157C 

UCSAR 

EQU 

SCPDAT 



00157C 

CMPAR 

EQU 

SCPDAT 



00192A 

EXIT 

EQU 

WRAR6A+446 



0019A4 

EXIT2 

EQU 

EXIT+122 



0019D8 

BITCKO 

EQU 

EXIT2+52 



0019FA 

SAVSTA 

EQU 

BITCKO+34 



001A14 

• READS 

EQU 

SAVSTA+26 



001A2A 

READS2 

* 

EQU 

READS+22 



001015 

. ' * 

ORG 

SECNO+21 

001015 

001A8C 



DC 

AL3(RTN02) 



001A8C 


ORG 

SECN0+2700 




* . 


ROUTINE PREFIX 




* 


ROUTINE OVERLAY 

001A8C 




CNOP 

0,4 

001A8C 

02 


RTN02 

DC 

XL1•02 * 

001A8D 

.00 



DC 

XL1»00« 

001A8E 

FFFE 



DC 

XL2 *FFFE • 


*4^*******«*******************«***********************************«***$ 

* ROUTINE OVERLAY 1 LABELS ADDRESSED BY ROUTINE OVERLAY 2 

+++++++++*++++++++++++*++*++++++++*+***++++*+*****+*******++*+* 4 *++*+++ 

WRAREA EQU SECN0+1900 WRITE AREA 153 POSITIONS 

CESTAT EQU WRAREA+153 CHAN END STATUS - 1 POSITION 

DESTAT EQU WRAREA+154 DEVICE END STATUS - l POSITION 

AGSTAT EQU WRAREA+155 COMBINED CHAN * DEV END STATUS*-1 POS 

SNSE EQU WRAREA+156 SENSE DATA - 1 POSITION 

CKRDAR EQU WRAREA+157 CHECK READ AREA - 133 POSITIONS 

ROAR EQU WRAREA+290 DATA READ AREA - 153 POSITIONS 

CKDATA EQU WRAREA+443 TEMPORARY CK READ DATA STORAGE** 1 POS 

EXPECT EQU WRAREA+444 AREA TO TEST FOR EXPECTED BIT- 1 POS 

PROGSW EQU WRAREA+445 PROGRAM SWITCHES 

* ,, BIT 0 - 1ST PRINT PASS 

* •• BIT 1 - RUN ROUTINE SWITCH 

* ,, BIT 7 -PARITY AT WRITE CHAN-END 

UCSAR EQU SCPDAT UCS BUFFER LOAD AREA - 241 POSITIONS 

CMPAR EQU SCPDAT COMPARE DATA AREA - 133 POSITIONS 

EXIT EQU WRAREA+446 

EXIT2 EQU EXIT+122 SVC D6 EXIT FROM ROUTINE 

BITCKO EQU EXIT2+52 CHECK BIT ROUTINE 

SAVSTA EQU BITCKO+34 SAVE STATUS + SENSE DATA 

READS EQU SAVSTA+26 DO CHECK READ + DATA READ 

READS2 EQU READS+22 DO DATA READ 


INITIALIZE OVERLAY 


START OF CNTRL PROG RTNE OVERLAY 2 


0,4 FULL WORD ALIGNMENT 

XL1•02* ROUTINE NUMBER 

XL1*00 * FLAGS 

XL2 *FFFE • LAST ROUTINE 

IF HERE, PRINT BUFFER + ASSOCIATED CIRCUITRY 0«.K* 


DATE 16JUN65 22JUN65 15JUL65 15DEC65 15MAR66 15N0V66 

EC 124263 124249 124265 125601 125632 125655 


ID F80C-5 
PA6E 12A 






o o o c 


oocooooooc 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


P/M 840223 
PAGE 13 


F80C 2821 SCAN, 1403 UNIVERSAL CHARACTER SET 
F80C5 CONTROL ROUTINE OVERLAY 2 


START CHECKOUT OF UCB CIRCUITRY OF PRINTER ICU 


001A90 
001A94 
001A98 
001A9C 
001A AO 
001AA4 
O01AA8 
001AAC 
001 ABO 
00IAB4 


91 40 
47 80 

92 8 2 

95 82 
47 60 

96 40 
41 50 
91 04 
47 80 
41 50 


f 929 
F A9C 
F 751 
F 751 
F 9A4 
F 929 
0 084 
F 0E1 
F AB8 
0 078 


MY! 

ENTRY! CLI 


PRCGSW *X*40 9 
NONE 9 ENTRY1 
5CHNUM * X 9 82 * 
SCHNUMtX , 82* 
UNEQ t EXI 12 
PRGGSW.X *40 * 
R5«132C0»0I 
UNIT1+1*X *04 * 
NONE , *+8 
R5,120(0,01 


IS RUN ROUTINE SWITCH ON 
BRANCH IF OFF 

RESET SEARCH NUMBER TO THIS ROUTINE 
IS SEARCH NUMBER FOR THIS ROUTINE 
GO SEARCH FOR FLT OVERLAY 
TURN RUN ROUTINE SWITCH ON 
SET REG 5 FOR 132 POSITION PRINTER 
IS 120 POSITION PRINTER USED 
BRANCH IF NOT 120 POSITION PRINTER 
SET GEN REG 5 FOR 120 POSITION PRINT 


001AB8 07 81 F 57C F 57C 

00 iA BE 07 6E F 5FE F 5FE 

001AC4 02 83 F 760 F 570 

001ACA 96 20 F 929 

001 ACE 41 00 F E30 

00IAD2 59 00 F 048 


001AD6 92 04 F 122 

001 ADA 45 BO F 228 

0O1AOE 45 BO F 9FA 

001AE2 95 14 F UF 

0OIAE6 47 80 F AF4 

00IAEA OA DO 

001AEC 44 

0OIAED 07 

001AEE FEDO 

0OIAF0 47 FO F 92A 

001Af4 . 9! 01 F 122 

001AF8 47 80 F 806 

00iAFC OA DO 

001AFE 44 

001AFF 07 

001BOO FE07 

001802 47 FO F 92A 

001B06 91 02 F 807 

OOiBOA 47 80 F B46 

001 BOE 91 04 F 808 

00IB12 47 80 F B24 

.001816 OA DO 

001818 44 

00IB19 07 

001B1A PE6E 

001B1C 92 84 F 751 

001620 47 FO F 92A 

00IB24 91 10 F 808 

001828 47 10 F DCS 

O01B2C 91 08 F 808 

001B30 47 10 F BFC 

001634 91 40 F 808 

001838 47 80 F DBA 

001 BBC OA DO 

00IB 3 E 44 

001B3F 07 

001840 FJ67 

001B42 47 FO F#2A 

GG1B46 41 90 F EGO 


UCB MOO XC 
XC 


UCSMG5 TM ■ 
8C 

UCBHIO SVC 


UCBM20 TM 
BC 

4 

TM 

BC 

UCBM30 SVC 


UCBH50 TM 
BC 
TM 
BC 
IM 
BC 

UCBK52 SVC 


UCBNOO LA 


UCSARI1305 »UCSAR RESET UCB LOAD AREA TO NULL 

UCSAR*130«llll.UCSASU130 ti 

WRAREA+lC 1325»UC$AR*l USED FCR LOGOUT OF DATA 

PROGSWtX *20 8 SET SW TO IGNORE LOGOUT OF READ DATA 

ROtLDUCSl LOAD ADDR OF UCB LOAD CCW-NQ FOLDING 

ro.caw STORE CCW ADDRESS IN CAW 

THIS IS A PRELOAD UCS COMMAND * 
CHAINED TO A UCS LOAD COMMAND 
SIOSWS *X * 04 * RESET SiO SWITCHES- WAIT FOR SYNC CK 

RllfS10 GO TO START I/O ROUTINE 

RlltSAVSTA GO SAVE STATUS * SENSE DATA 


t$WSA¥*7 f X *14 9 
EQiUC0MO5 

X 8 DQ 8 
X *44 ® 

X *07 ® 

AL2(ERR036-BASE*REGI 
UNC .EXIT 

SI0SWSfX*01* 

NONE ,UCBM20 
X *D0 * 

X *44 8 
X 8 07 ® 

AL2(ERR037-SASE+ REG1 
UNCtEXlT 

AGSTAT»X 8 02 8 
NONE yUCBNCO 

SNSEtX*04* 

NONE »UCBM5G 
X *D0 * 

X *44 * 

X *07 * 

AL2«ERR022-BA$£+REGJ 
SCHNUHfX *84* 

UNC. EXIT 

SNSE .X *10 8 
ALL .UCBR80 
SNSE f X *08 8 
All»UCBN35 
SNSE.X *40 8 
NGNE,UCBSO5 
X*0Q 8 
X*44 • 

X *07 * 

AL21ERR021-BASEtREG1 
UNC.EXIT 

R9.DATA2 


IS CSW RESIDUAL COUNT OK 
BRANCH IF OK 

PRINT MESSAGE -WRONG RESIDUAL COUNT 


IS INTERVENTION REQ SWITCH SET 
BRANCH IF OFF 

PRINT MESSAGE - SYNC CHECK 


WAS UNIT CK STATUS PRESENT 
BRANCH IF NO .UNIT CK 

CHECK FOR UCB PARITY 
BRANCH IF NO UCB PARITY 
ERROR MESSAGE- UCB DATA-REG PROBLEM 
ff OR UCB PARITY CIRCUITS PROBLEM 


SET UP SEARCH FOR UCB DATA REG FLT 


WAS EQUIP OK ON 

GO PRINT -FALSE EQUIP CK 

WAS DATA CK ON 

GO PRINT -FALSE DATA CK 

WAS UNUSUAL COMMAND SEQ ON 

GO PRINT FALSE UNIT CK 

ERROR MESSAGE-FALSE UNUSUAL COMMAND 


I NIT INDEX 9 TO START OF UCS DATA 


16JUN65 22JUN6* 

124263 124249 


153UL 65 15DEC65 .I5KAR66. 15-NCV.66 

124265 125601 125632 125655 


ID F8CC-5 
PAGE 13 


oocooocoooooooooo 


IBM MAINTENANCE DIAGNOSTIC PROGRAM P/H S4C223 

PAGE■ 13A 

F80C 2821 SCAN, 1403 UNIVERSAL CHARACTER SET 
F80C5 CONTROL ROUTINE OVERLAY 2 


00184A 

D2 

00 

F 

57D 

9 

000 

UCBN10 MVC 

ICSAR+im ,0CR9) 

SET DATA BYTE IN UCS WRITE AREA 

00IB50 

02 

EE 

F 

57E 

F 

57D 

MVC 

UCSAR+2I239),UCSAR+1 

FILL UCS AREA WITH DATA BYTES 

001856 

02 

83 

F 

76D 

F 

57D 

MVC 

WRAREA+1 ( 1321 .UCSAfH! 

USED FOR LOG CUT OF DATA 

001BSC 

96 

20 

F 

929 



or 

PR06SW,X *20 * 

SET SW TO IGNORE LOGOUT OF READ DATA 

001B60 

41 

00 

F 

E30 



LA 

RO.LDUCSl 

LOAD ADDRESS OF UCB LOAD CCW-NO FOLD 

001564 

50 

00 

F 

048 



ST 

RO.CAW 

STORE CCW ADDR IN CAW 








* 


THIS IS A PRELOAD UCS COMMAND, 








* 


CHAINED TO A UCS LOAD COMMAND 

001B68 

92 

04 

F 

122 



M VI 

SIOSWS.X*04 * 

RESET SIO SWITCHES-WAIT FOR SYNC OK 

001B6C 

45 

BO 

F 

228 



BAl 

Rll.SIO 

GO TO START I/O ROUTINE 

001870 

45 

BO 

F 

9FA 



SAL 

Rll ,SAVSTA 

GO SAVE STATUS * SENSE DATA 

001B74 

91 

01 

F 

122 



TM 

SIOSWS,X*01* 

IS INTERVENTION REQ SWITCH SET 

001878 

47 

10 

F 

AFC 



BC 

& 

ALL tUCBMIO 

GO TO SYNC CK PRINTOUT 

001BTC 

91 

02 

F 

807 



TM 

AGSTAT»X*02 8 

CHECK FOR UNIT CK 

001880 

47 

80 

F 

BSC 



BC 

NONE.UCBN20 

BRANCH IF NO UNIT CK 

001884 

91 

04 

F 

808 



TH 

SNSE ,X *04 • 

WAS UCS PARITY BIT ON 

001B88 

47 

10 

F 

816 



BC 

ALL,UCBM3G 

GO TO ERROR PRINT -UCB 0ATA-REG PRCB 

00188C 

94 

DF 

F 

929 



UCBN20 HI 

PROGSW.X 8 DF* 

RESET SKIP READS DATA LOGOUT SW* 

001890 

02 

00 

F 

760 

9 

000 

MVC 

WRAREA+1(1>.0SR9) 

SET WRITE DATA IN PRINT AREA 

001896 

D2 

82 

F 

T6E 

F 

76D 

MVC 

WRAREA*2{131)»WRAREA+1 ,* 

001B9C 

41 

00 

F 

E20 



LA 

ROtDPRCCW 

LOAD ADDR CF PRINT WRITE CCW 

00 IB AO 

50 

00 

F 

048 



ST 

RO.CAW 

STORE PRINT CCW ADDR IN CAW 

0018A4 

92 

00 

F 

122 



MVS 

$io$w$,x*oo* 

RESET SIO SWITCHES 

O018A8 

45 

BO 

F 

228 



BAL 

RlltSIO - 

GO TO START I/O ROUTINE 

001BAG 

45 

BO 

F 

9FA 



w 

BAL 

Rll, SAVSTA 

GO SAVE STATUS * SENSE DATA 

001880 

45 

AO 

F 

A14 



BAL 

RIO,READS 

GO 00 CHECK READ ♦ DATA READ 

001884 

91 

02 

F 

807 



W 

TM 

AGSTAT,X*02* 

CHECK FOR UNIT-CK ON DIAG WRITE 

001BBS 

47 

80 

F 

C 1C 



BC 

NONE,UCBPOO 

BRANCH IF NO UNIT-CK 

001 BBC 

91 

04 

F 

808 



w 

TM 

SNSE ,X *04 8 

CHECK FOR UCB PARITY CHECK 

001SCO 

47 

80 

F 

BCE 



BC 

NONE, UCBN30 

BRANCH IF NOT UCB PARITY CK 

0018C4 

OA 

DO 





UC8N25 SVC 

X *D0 9 

ERROR MESSAGE- UCS BUFFER PROBLEM 

001BC6 

44 






DC 

X*44 8 

t» 

001BC? 

07 






DC 

X * 07 9 

it 

0018CB 

FE75 





DC 

AL2CERR023-8ASE+REG) 

,ii 

OOIBCA 

47 

FO 

F 

92A 



BC 

UNC,EXIT 

' 

ooiBce 

91 

08 

F 

808 



sp 

UCBN30 TM 

SNSE ,X *08• 

CHECK FOR OATA-CK 

0018 02 

47 

10 

F 

8FC 



BC 

ALL ,UCBN35 

BRANCH IF DATA CK -FALSE- 

001BD6 

91 

02 

F 

808 



TM 

SNSE,X*02* 

CHECK FOR UNUSUAL COMMAND 

GOISOA 

47 

10 

F 

83C 



BC 

ALL,UCBM52 

BRANCH IF UNUSUAL COMMAND -FALSE- 

0018DE 

91 

01 

F 

808 



$ 

TM 

SNSE,X *01 9 

CHECK FOR EQUIPMENT CK 

001BE2 

47 

80 

F 

C1C 



BC 

NONE,UCBPOO 

BRANCH IF OFF 

0018E6 

41 

10 

0 

002 



♦ 

LA 

Ri,210,0) 

CHECK FOR PRINT CHECKS—SET MASK 

0018EA 

45 

BO 

F 

9D8 



BAL 

Ril»BITCKO 

GO CHECK FOR 6 BITS IN CK READ 

001 BEE 

47 

FO 

F 

C06 



BC 

UNC »UC8N40 

,, NO BITS FOUND, BR NO PRINT CK 

001BF2 

OA 

DO 




SVC 

X *00 * 

PRINT MESSAGE - FALSE PRINT CHECK 

001BF4 

44 






DC 

X*44 * 

, , 

0018F5 

07 






DC 

X *07 * 

» » 

001BF6 

;,F£C2 





DC 

AL2 ( ERR034-BASE+REGJ 

t, 

001BF8 

47 

FO 

F 

92A 



BC 

UNC,EXIT 

PRINT MESSAGE - FALSE DATA CHECK 

0018FC 

0A 

DO 




UCBN35 SVC 

x*oo 9 

0018FE 

44 






DC 

X *44 f 

» » 

0018FF 

07 






DC 

X *07* 

», 

001COO 

FEB4 





DC 

AL21ERR032-BASE+REGS 


00 ICO 2 

47 

FO 

F 

92A 



BC 

UNC , EXIT 


001C06 

41 

10 

0 

001 



UCBN40 LA 

Ri,1(0,01 

CHECK FOR PARITY CKS-SET MASK 

00 ICOA 

45 

BO 

F 

9D8 



BAL 

RlltBITCKO 

», GO CHECK FOR 7 BITS IN CK READ 

0O1COE 

47 

FO 

F 

DCS 



BC 

UNCfUCBRSO 

,, NO BITS FOUND, BR NO PARITY CK 




* 


,, GO TO FALSE ECU IP CK MESSAGE 


DATE 

16JUN65 

22JUN65 

15JUL65 

150EC65 

15MAR66 

15N0V66 

ID F8CC-5 
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001 Cl 2 
0OIC14 
00105 
001C16 
001C18 

001C1C 
001C20 
001C24 
001C28 
001C2C 
001C 30 
O01C32 
001C 36 

001C3A 

001C3C 

00IC3D- 

001C3E 

001C40 


OA DO 

44 

OT 

FE7C 
47 FO 


41 05 
41 10 
91 04 
47 80 
41 11 
15 01 
47 60 
47 FO 

OA DO 
44 
07 
FE83 
47 FO 


F 92A 

F 80A . 
F BOA 
l 000 
F C3A 
0 001 

F C24 
F C44 


F 92A 


• 

SVC X*D0® 

DC X*44* ' 

DC X*07* 

OC AL2< ERR026-BASE+REG) 

BC UNC.EXIT 

* 

UCBPOO LA ROjCKROAR+1IR5) 

LA Ri.CKROAR+l 

UCBP05 TM 0(Rl)«X*04 • 

BC NONE tUCBPIO 

LA Rl,l(Rl,OJ 

CLR RO.Rl 

SC UNE0.UCBP05 

BC UNC.UCBP50 

* 

UCBP10 SVC X*D0* 

DC X * 44 * 

OC X * 07 9 

OC AL2IERR025-BASE*REG) 

BC UNC.EXIT 


RETURN HERE WITH PARITY ERRORS 
,, PRINT MESSAGE-INTERMITTANT PRINT 
f , BUFFER OR PARITY ERRORS 

f f 


SET UP FOR HAXIHUM COUNT 
INITIALIZE INDEX 1 
CHECK FOR PLC BIT 
BRANCH IF NO PLC BIT 
UPDATE INDEX 

WERE ALL POSITIONS CHECKED 
GO CHECK NEXT POSITION 


PRINT MESSAGE-COMPARE * SET PLC 
,, CIRCUITS PROBLEM 

»» 


001C44 

41 

00 

F 

£67 

UCSP50 LA 

ROjOATA2*7 

SET UP WAX AOORESS 

O01C48 

41 

99 

0 

001 

LA 

R9,MR9,0I 

UPDATE INDEX 9 BY l 

001C4C 

15 

09/ 



. CLR 

R0.R9 

WERE ALL BITS CHECKED 

001C4E 

47 

.60 

F 

B4A 

BC 

& 

UNEQ.UCSN10 

GO GET NEXT BITS 

001C52 

07 

81 

F 

57C F STC 

W 

UCBQOO XC 

UCSARI130)fUCSAR 

RESET UCS LOAD AREA TO 00 

O01C58 

07 

6E 

F 

5FE F 5FE 

XC 

UCSAR*130(111)tUCSAR+130 », 

001C5E 

• 02 

S3 

F 

760 F 570 

MVC 

WRAREA+I(132).UCSAR+l 

USED FOR LOG-OUT OF DATA 

0O1C64 

96 

20 

F 

929 

01 

PR0GSW»X*20 * 

SET SW TO IGNORE LOGOUT OF READ DATA 

0O1C68 

41 

00 

F 

E30 

LA 

RO.LDUCSl 

LOAD ADDR OF UCS LOAD CCW 

001C6C 

50 

00 

F 

048 

ST 

RO.CAW 

STORE CCW ADDR IN CAW 






* 


THIS IS A PRELOAD UCS COMMAND, 






6 


CHAINED TO A UCS LOAD COMMAND 

001 CTO 

92 

00 

F 

122 

MVI 

SIOSWS.X'OO* 

RESET SIO SWITCHES 

001C74 

45 

BO 

F 

228 

8AL 

Rll.SIO 

GO TO START I/O ROUTINE 

001C78 

45 

BO 

F 

9FA 

BAL 

R1I.SAVSTA 

GO SAVE STATUS AND SENSE DATA 

O01C7C 

91 

02 

F 

801 

. ♦ 

TM 

AGSTAT*X*02 * 

WAS UNIT—CK ON FROM LOADING UCS 

001C80 

47 

80 

F 

CAO 

BC 

NONE.UCBROO 

BRANCH IF OFF 

0O1C84 

91 

04 

F 

808 

TM 

SNSE.X'OA* 

WAS UCB PARITY ON 

0OIC88 

47 

10 

F 

C96 

BC 

ALL.UCBQ20 

BRANCH IF ON 

001C8C 

OA 

00 



SVC 

X’DO* 

PRINT MESSAGE-UNDEFINED INTERMITTANT 

0O1C8E 

44 




DC 

X *64 • 

,, ERROR 

001C8F 

07 




DC 

X * OT • 

» » 

001C90 

FE8A 



DC 

AL2IERR026-BASE+REG) 

»» 

0O1C92 

47 

FO 

F 

92A 

BC 

UNC.EXIT 





Q01C96 

OA 

DO 



UCBQ2G SVC 

X*DO* 

PRT MSG - UCB PARITY CHECK PROB 

001C98 

44 




OC 

X *44 * 

, , 

001C99 

07 




DC 

X *07* 

, , 

0O1C9A 

FE91 



DC 

AL2CERRQ27-BASE*REG) 

, » 

001C9C 

47 

FO 

F 

92A 

8C 

UNC,EXIT 


001CA0 

94 

OF 

F 

929 

w 

UCBROO NI 

PROGSW,X * OF * 

RESET SKIP READS CATA LOGOUT SW. 

O0ICA4 

92 

FF 

F 

76D 

MVI 

WRAREA*!*X *FF• 

SET PRINTER WRITE AREA TO ALL FF 

0O1CA8 

02 

82 

F 

76E F 160 

MVC 

WRAREA*2(131).WRAREA*! ,, 

001CAE 

41 

00 

F 

E20 

LA 

RO.DPRCCW 

LOAD ADDR OF DIAG WRITE CCW 

001CB2 

50 

00 

F 

048 

ST 

RO.CAW 

STORE CCW ADDR IN CAW 

001CB6 

92 

00 

F 

122 

MVI 

SIOSWS.X'OO* 

RESET SIO SWITCHES 

001CBA 

45 

BO 

F 

228 

BAL 

A 

RIl.SIO 


001CBE 

45 

BO 

F 

9FA 

W 

BAL 

RIl.SAVSTA 

GO SAVE STATUS ♦ SENSE DATA 

00ICC2 

45 

AO 

F 

A14 

BAL 

RIO,READS 

GO DO CHECK READ * DATA READ 

001CC 6 

91 

02 

F 

807 

m 

TM 

AGSTAT,X*02 * 

WAS UNIT*CK ON FROM DIAG WRITE 

001CCA 

41 

80 

F 

C08 

BC 

NONE.UCBR20 

BRANCH IF OFF 


"DATE 16JUN65 22JUN65 15JUL65 15DEC65 . 15MAR66 15N0V66 
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001CCE 

001CD0 

001CD1 

001CD2 

0OICO4 

001C 08 
001C DC 
001C60 
O01CE4 
00ICES 
O01CEC 
0G1CEE 
O01CF2 

001CF6 

0OICF8 

0OICF9 

00-1CFA 

0O1CFC 

001D0D 
001004 
001D08 
001D0C 
00 ID 10 
001014 
001D18 
O01DIC 
O01D20 
OOID22 

O01D26 
O01D2C 
001030 
001034 


OA- DO 

44 

07 

FE98 

47 FO F 92A 

41 05 F m& 
41 10 F BOA 
91 04 1 000 
47 10 F CF6 
41 il 0 001 
15 01 

4? 60 F CEO 
4T FO F 000 

OA 00 
44 
01 

FEOE 

47 FO- P 92A 


UC8R10 SVC 
' DC . 
DC 
DC 
SC 

* 

UCBR20 LA 
LA ■ 

UCBR25 TM 


41 00 
' 41 20 

41 10 

42 21 
41 22 
95 40 
47 80 
41 U 
15 10 
47 60 


F 66 D 
0 001 
F 57 D 
0 000 
0 001 
1 000 
F DOC 
0 001 


UCBR30 SVC 
DC 
DC 
DC 
BC 

■6 

UC8R40 LA 
LA 
LA 

UC8R50 STC 


X f DO s 
X *44 9 
X®07* 

A12IERR028—BASE*REG) 
UNC,EXIT 

R0,CKRDAR*1(R5) 

Rl ,CKRDAR*l 
01RlI,X *04 * 

ALLtUCBRBO 
Rl,1(Rl,0} 

R0,R1 

UNEQ, UCBR25 
UNC,UC8R40 

X»D0» 

X *44 f 
X * 07 * 

AL2tERR038-BA$£*REG> 
UNC,EXIT 

R0,UC$AR*24l 
R2,110,0) 

Rl,UC$AR*l 
R2«0(Rl) 

R2,1(R2,0) 

0CR1),X*40* 

EG,UCBR50 
Rl,l(Rl,0) 

RItRO 

UNEQ,UCBR50 


PRINT MESSAGE 


INTERMITTANT OR 
FALSE ERRORS 


SET UP MAX COUNT 
INIT INDEX TO START OF AREA 
CHECK FOR PLC BIT 
BRANCH IF PLC PRESENT 
UPDATE INDEX 8Y 1 
WERE ALL POSITIONS CHECKED 
GO CHECK NEXT POSITION 
NO PLC BITS FOUND 




PRINT MESSAGE-INSERT UCS BLANKS OR 
, 9 PLC INHIBIT PROBLEM 


SET UP MAXIMUM COUNT 
SET CHAR REG TO 01 

INITIALIZE INDEX REG 1-L0AD AREA POS 

SET CHARACTER IN BUFFER LOAD AREA 

CHANGE CHARACTER 

WAS A BLANK JUST LOADED 

GO REPLACE BLANK 

UPDATE POSITION INDEX BY 1 

IS AREA FULL 

GO SET NEXT CHAR 


02 83 F 760 F 570 
96 20 F 929 
41 00 F E30 
50 00 F 048 


WRAREA*IC132)»UCSAR*l USED FOR LOG OUT DATA 


PROGSW,X *20• 

ROtLDUCSl 

R0,CAW 


001D38 

92 

00 

F 

122 

MVI 

SIOSWS,X*OO t 

00103C 

45 

80 

F 

228 

BAL 

RUtSIO 

001040 

45 

80 

F 

9FA 

4P 

BAL 

RllfSAVSTA 

001044 

91 

02 

F 

807 

TM 

AGSTAT,X*02* 

001048 

47 

80 

F 

058 

BC 

NONE,UCBR55 

001D4C 

91 

04 

F 

808 

TM 

SNSE,X *04 * 

001050 

47 

10 

F 

816 

BC 

ALL,UCBM30 

001054 

47 

FO 

F 

CCE 

BC 

UNC,UCBR10 

001058 

94 

OF 

F 

929 

UCBR55 NI 

PROGSW,X *0F * 

00105C 

07 

83 

F 

760 F 760 

XC 

WRAREA*!(132) 

001062 

D2 

77 

F 

760 F 570 

MVC 

WRAREA*!C120) 

001068 

96 

80 

F 

929 

01 

PROGSW,X*80* 

0O1D6C 

41 

00 

F 

E40 

UCBR60 LA 

RO,PRTUCS 

001070 

50 

00 

F 

048 

ST 

. * 

RO,CAW 

001074 

92 

00 

F 

122 

♦ 

MVI 

SI0SWS,X*00* 

001078 

45 

BO 

F 

228 

BAL 

RUtSIO 

O01D7C 

45 

BO 

F 

9FA 

w 

BAL 

RlltSAVSTA 

001080 

45 

AO 

F 

A14 

BAL 

* 

RIG,READS 

001084 

91 

02 

F 

807 

TM 

AGSTAT t X*02* 

001088 

47 

80 

F 

OFF 

BC 

* 

N0NE*UC8T00 

001080 

91 

10 

F 

808 

. , 

" TM 

SNSE tX f IO* 

001090 

47 

80 

F 

002 

BC 

NONE,UCBSOO 

001094 

41 

10 

0 

001 

LA 

Rlfll0,0) 


SET SW TO IGNORE LOGOUT OF READ 
LOAD ADDR OF UCB PRELOAD CCW 
STORE CCW AODRESS IN CAW 
THIS IS A PRELOAD UCS COMMAND, 
CHAINED TO A UCS LOAD COMMAND 
RESET SIO SWITCHES 
GO TO START I/O ROUTINE 

GO SAVE STATUS 4 SENSE DATA 
WAS UNIT-CK PRESENT 
BRANCH IF NO UNIT CK 
CHECK FOR UCB PARITY 
BRANCH IF UCB PARITY 
BRANCH FOR ERROR MESSAGE 
RESET SKIP READS DATA LOGOUT SW. 
,WRAREA+l CLEAR WRITE AREA 
,UC$AR*1 SET WRITE DATA IN WRITE AREA 
SET SW. FOR 1ST 120 CHARACTERS 
LOAD ADDR OF PRINT CCW 
STORE CCW ADDR IN CAW 
THIS IS A PRELOAD UCS COMMAND, 
CHAINED TO A PRINT COMMAND. 

RESET SIO SWITCHES 
GO TO START I/O ROUTINE 

GO SAVE STATUS 4 SENSE DATA 
GO DO CHECK READ 4 DATA READ 

WAS UNIT-CK ON FOR PRINT 
BRANCH IF OFF 

WAS ECUIP-CK SET 
BRANCH IF NO 

CHECK FOR PARITY CKS-SET MASK 


DATE 16JUN65 22JUN65 15JUL65 15DEC65 15MAR66 15N0V66 
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001098 45 BO F 9D8 

001D9C 47 FO F DAA 

0010AO OA DO 

0010A2 45 

0010A3 07 

0010A4 FE9F 
001DA6 47 FO F 92A 

0010AA 41 10 0 002 

001DAE 45 BO F 9D8 

001DB2 47 FO F DCS 


001DB6 91 04 F 927 

0010BA 47 80 F C3A 

001DBE OA DO 

001DC0 44 

001DC 1 07 

001DC2 FEA6 

0010C4 47 FO F 92A 

0010C8 OA 00 

001DCA 44 

OOiOCB 07 

OOiDCC FEC9 

001OCE 47 FO F 92A 

001002 91 04 F 806 

00IDD6 47 10 F DF4 

00100A 91 08 F 808 

001ODE 47 10 F C3A 

001DE2 91 01 F 808 

001DE6 47 10 F DFE 

001DEA OA BO 

00IDEC 44 

OOIDED 07 

001 DEE FEB8 

OOIDFO 47 FO F 92* 

0010F4 OA DO 

001DF6 44 

001DF7 07 

OOIDF8 FEAD 

001OFA 47 FO F 92A 

001DFE 91 80 F 929 

001£02 47 80 F E14 

001606 02 77 F 76D F 5F5 

001E0C 94 76 F 929 

00 IE 10 47 FO F 06C 

001614 OA DO 

001616 04 

001617 OF 

001E18 FEES 

00IE1A 47 FO F 92A 


UCBR70 LA 
BAL 


UCBR80 SVC 
' DC 


UCBSOO TM 
BC 
TM 
BC 
TH 
BC 

UCBS05 SVC 


UCBS10 SVC 
DC 


UCBTOO TM 
BC 


Rli .8ITCK0 
UNC ,UCBR70 

X»00» 

X' 4 5 * 

X*07* 

AL2<ERR029-BASE*REG) 
UNC,EXIT 

Rl,2(0,0) 

R11 ,BI TCXO 
UNC .UCBR80 


,, 6C CHECK FOR 7 BITS IN CK READ 
,* NO PARITY FOUND RETURN 

PARITY BITS FOUNT 
PRINT MESSAGE - INTERM ITTANI OR 
, . FALSE PARITY ERRORS 


CHECK FOR PRINT CKS-SET MASK 
,, GO CHECK FOR 6 BITS IN CK READ 
,, NC PRINT CKS FOUND RETURN 
,, GO CHECK FOR UCB PARITY CHECK 

WAS PLC PRESENT IN PRINT CK POSITION 
CO TO COMPARE PROBLEM PRINTOUT 

PRINT MESSAGE -HAMMER FIRE PROELEM 


rKnATA.X'04* WAS PLC PRESENT IN r K ini I l.* rumiui 

NONE,UCBP10 GO TO COMPARE PROBLEM PRINTOUT 

X , D0 , PRINT MESSAGE -HAMMER FIRE PROBLEM 

X *44 * »• 

X' 07 • " 

AL21ERR030-BASE+REG) ,, 

UNC .EXIT 

X , D0 , PRINT MESSAGE - FALSE EQUIP CHECK 

X *44' •’ 

X*07* *» 

AL2JERR035-BASE+REG) ,, 

UNC.EXIT 

SNSE,X # 04 4 WAS UCB PARITY SET GN PRINT 

ALLeUCBSlO BRANCH IF ON 

SNSE,X*08’ WAS DATA-CK SET ON PRINT 

ALt UCBP10 GO TO COMPARE ♦ PLC PROS PRINTOUT 

SNS6.X*01 * WAS CHANNEL 9 DETECTED 

ALL.UCBTOO BRANCH IF DETECTED 

‘•DO* PRINT MESSAGE - FALSE UNIT CHECK 

X *44' »» 

X <07* »» 

AL2CERR033-BASE+REG) ,» 

UNC.EXIT 

X , D0 . PRINT MESSAGE- BAD CORE POSITION 

X *44• »* 

X*07* »» 

AL2IERR031-BASETREG) «» 

UNC,EXIT 

PROGSW,X*80* IS THIS THE 1ST 120 POSITION PRINT 

WRAREA+1(1201.UCSAR+121^567 2ND 2 120 CHAR IN PRINT AREA 
PR0GSW,X*7F* RESET 1ST PRINT PASS SWITCH 

UNC.UCBR60 SO PRINT 2ND PASS 


WAS UCB PARITY SET CN PRINT 

BRANCH IF ON 

WAS DATA-CK SET CN PRINT 

GO TO COMPARE + PLC PROB PRINTOUT 

WAS CHANNEL 9 DETECTED 

BRANCH IF DETECTED . _ 

PRINT MESSAGE - FALSE UNIT CHECK 


PRINT MESSAGE- BAD CORE POSITION 


X •DO* 

X'04* 

X'OF* 

AL2(OKHES S-BASE+RfG! 
UNC,EXIT 


PRINT MESSAGE - NO ERRORS FOUND 


001616 

001E1E 

001620 

001E28 

001630 


07 00 

05 001760 2000 0098 
05 00176D 2000 0001 
6B 00157C 6000 0001 


CONSTANTS 
CCW TA8L6 


CHOP 

BCR 

DPRCCW CCW 
PRCCW2 CCW 
LDUCS1 CCW 


DOUBLE WORD ALIGNMENT 


y&ARFA*1#X*20 9 t152 01 AG WRITE TO PRINT BUFF, St! ON 

,■« »« it * 

X'EB’.UCSAR.X'oO*,! PRELOAD UCB,SLI ON.CCMMAND CHAIN 


16JUN65 22JUN65 15JUL65 150EC65 15HAR66 15N0V66 

124263 124249 124265 125601 125632 125655 
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001E38 

FB 

00157D 

2000 

0104 

£ 

CCW 

001£40 

EB 

O015TC 

6000 

0001 

PRTUCS 

CCW 

001E48 

09 

001T6D 

2000 

0078 

& 

CCW 

001E50 

EB 

00157C 

6000 

0001 

LDUCS2 

CCW 

001E58 

FB 

00157D 

2000 

0001 

* 

CCW 

0O1E6O 

COEOFOF8FCFEFF 


* 

DATA2 

DC 


* 


* 

$ 

* 

* 


♦ 


001E67 

C5D9D94OF0F2F 1 

ERR021 

DC 

001E6E 

C5D9D940F0F2F2 

ERR022 

$ 

DC 

001£75 

C5D9D94OF0F2F3 

ERR023 

DC 

001ETC 

C5D9D940F0F2F4 

ERR024 

DC 

001EBB 

C5D9D940F0F2F5 

ERR025 

# 

DC 

00IE8 A 

C5D9D940F0F2F6 

ERR026 

DC 

00IE91 

C5D9D940FOF2F? 

ERR027 

DC 

001E98 

C5D9D94OF0F2F8 

# 

ERR028 

DC 

001E9F 

C5D90940FOF2F9 

ERR029 

DC 

001EA6 

C5D9094OF0F3F0 

ERR030 

DC 

00IEAD 

C5D9D94OF0F3F1 

ERR031 

DC 

00IE84 

C5D9D940F0F3F2 

ERR032 

DC 

001EBB 

C5D9D94OF0F3F3 

ERR033 

DC 

001 EC 2 . 

C5D9D940F0F3F4 

ERR034 

DC 

001EC9 

C5D9D940FOF3F5 

ERR035 

DC 

001EDO 

C5D9D940F0F3F6 

ERR036 

$ 

DC 

001ED? 

C5D9D94OF0F3F7 

ERR037 

♦ 

DC 

001EDE 

C5D9D940F0F3F6 

* 

ERR038 

$ 

DC 

001EE5 

05D640C5D9D9D6D9E2 

OKMESS 

DC 

001EEE 

40C6D6E4D5C4 

♦ 



000040 

* 

* 

HC SW 

EQU 


000048 

HCAW 

EQU 


000078 

HION 

EQU 


001118 

CSWSAV 

EQU 


00157C 

OUTPUT 

EQU 


$ 

* 



* 


000000 

RO 

EQU 

000001 

Rl 

EQU 

000002 

R2 

EQU 

000003 

R3 

EQU 

000004 

R4 

EQU 

000005 

R5 

EQU 

000006 

R6 

EQU 

000007 

R7 

EQU 

000008 

R8 

EQU 

000009 

R9 

EQU 

OOOOOA 

RIO 

EQU 


X *FB * # UCSAR+1 ,X *20 * ,260 LOAD UCB,NO FCLO»SLI ON, 9 , 

X*£B*,UCSAR,X®60*»1 PRELOAD UCB f SLI ON, COMMAND CHAIN 

X *09 * tWRARE A+l » X*20 *,120 NORMAL PRINT,SLI ON ,, 

X *EB * ,U€SAR,X *60 9 ,1 PRELOAD UCBfSLI ON, COMMAND CHAIN 

X *F8•tUCSAR+1,X *20 * »1 LOAD UCB,NO FOLD,SLI ON «, 


X•C0EQF0F8FCFEFF * WRITE UCS BUFFER DATA 


ERROR MESSAGES 

ERROR CONDITIONS 

C *ERR 021* 

C 8 ERR 022 9 

C’ERR 023 9 
C *£RR 024» 

C ®ERR 025 8 

C. f ERR 026 * 

C*ERR 02? 9 


C 9 ERR 028* 
C *ERR 029 1 
C 8 ERR 030 8 
C ®ERR 031 9 
C 9 £RR 032* 
C f ERR 033 s 
C 8 ERR 034 9 
C* ERR 035® 
C ®ERR 036 9 

C*ERR 03? f 


C 9 ERR 038 8 
C ®N0 ERRORS FOUND® 


EQUATES 


HARDWARE CSW LOCATION 
HARDWARE CAW LOCATION 
HARDWARE I/O NEW PSW LOCATION 

OUTPUT AREA EQUALS SCOPE DATA AREA 

GENERAL REGISTER EQUATES 

0 

1 

2 

3 

4 

5 

6 

T ' ' • 

8 

9 

10 


64 

12 

120 

SI0VR3 
SCPDAT 


FALSE UNUSUAL COMMAND SEQUENCE 
UCS DATA REGISTER PROBLEM 

n OR UC® PARITY CIRCUITS PROBLEM 

UCS BUFFER PROBLEM 

INTERMI7TANT PRINT BUFFER OR PARITY 
tt ERRORS 

COMPARE PROS * ASSOCIATED SET PLC 
», CIRCUITS 

UNDEFINED INTERHITTANT ERROR 
INTERMITTENT UCS DATA REGISTER 
*, PROBLEM OR INTERMITTENT UCB 
M PARITY CHECK CIRCUITS PROBLEM 
INTERMITTENT OR FALSE ERROR 
INTERHITTANT OR FALSE PARITY CKS 
HAMMER FIRE PROBLEM 

BAD UCS BUFF CORE ABOVE POS 81 OR 89 
FALSE DATA CHECKS 
FALSE UNIT CHECK 
FALSE PRINT CHECK 
FALSE EQUIPMENT CHECK 
CSW WRONG COUNT-PROf? A8LE BAR ADVANCE 
PROBLEM - UCB 

SYNC CHECK- PROBABLE ADV BY 2 PROB. 

OR BAR^'UN ITS ENCODE ADV 
BY 3 PROBLEM 
PLC INHIBIT PROBLEM 


DATE 16JUN65 22JUN65 15JUL65 150EC65 15MAR66 15N0V66 

EC 124263 124249 124265 125601 125632 125655 


ID F80C-5 
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P/N 840223 
PAGE 18 


000008 

OOOOOC 

OOOOOD 

OOOOOE 

OOOOOF 


000008 

000005 

000001 

000004 

000009 

000008 

000006 

000004 

000002 

000008 

000002 

000008 

000004 

000002 

OOOOOE 

OOOOOD 

000007 

000004 

OOOOOC 

000008 

000000 

001000 

OOFOOO 


Rll 

R12 

R13 

R14 

R15 

* 

* 

8 

NONE 

ANY 

ALL 

SOME 

NMIXED 

EQ 

UN EC 
LO 
HI 
Z 

POS 

CCO 

CC1 

CC2 

UNC 

NOTBSY 

NZ 

NEG 

2NEG 

CSWNST 

NHIGH 

BASE 

REG 


EQU 

EQU 

EQU 

EQU 

EQU 


EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

END 


11 

12 

13 

14 

15 

CONDITION CODE EQUATES 

8 

5 

1 
4 
9 
8 

6 

4 . 

2 
8 
2 
8 
4 
2 

15 
13 
1 
4 
12 
11 
13 

SECNO 
X r FQOQ * 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 

F80C 2821 SCAN* 1403 UNIVERSAL CHARACTER SET 
F80C5 CONTROL ROUTINE OVERLAY 2 

POST ASSEMBLY DATA* 


REFERENCES TO DEFINED SYMBOLS. 


P/N 

PAGE 


ALL OFF 
ANY ON 
ALL CN 
MIXED 
WOT MIXED 
EQUAL 
NOT EQUAL 
LOW 
HIGH 
ZERO 

GREATER ZERO 
AVAILABLE 
CSW STORED 
BUSY 

UNCQND1TIQNL 
NOT BUSY 
NOT CC 0 
NOT ZERO -AND- 
MIXED OR NONE 
CSW NOT STORED 
NOT HIGH 


DATE I6JUN65 22JUN65 15JUL65 I5DEC65 15MAR66 15NGV66 

*C 124263 124249 124265 125601 125632 125655 




ID F80C-5 
PAGE 16 


DATE 

EC 


o o o o 


o (vo¬ 


odoo 


1 

8 

Z 








1 

8 

EQ 

1AE6* 

1018 






1 

2 

HI 








1 

4 

LO 








I 

7 

NZ 








2 

IE14 

OK 

IE02 







1 

0 

RO 

1ACE * 

1AD2, 

I860, 

1B64* 

1B9C, 

IB AO* 

1C1C 




1C30* 

1C44* 

1C4C , 

1C68* 

IC6C * 

ICAE, 

1CB2 




ICO 8, 

1CEC * 

1000* 

1020* 

1030* 

1D34 * 

1D6C 




1070 







1 

1 

R1 

18E6* 

1C06* 

1C20* 

IC24, 

1C2C * 

1C2C* 

1C30 




ICOCf 

1CE0* 

ICES, 

ICE 8* 

ICEC * 

1008, 

1D0C 




1014* 

101C* 

1D1C* 

1020* 

1094, 

1DAA 


1 

2 

R2 

1004* 

100C* 

1010, 

ID 10 




1 

3 

R3 








1 

4 

R4 








1 

5 

R5 

MAS* 

1A84* 

1C 1C* 

IC08 




1 

6 

R6 








1 

7 

R7 








l 

8 

R8 








1 

9 

R9 

1846* 

1B4A* 

1890, 

1C 48* 

1C48 * 

1C4C 


I 

1 

ALL 

1828* 

1830* 

1B78* 

1888* 

1B02 * 

1B0A* 

1C88 




ICE4* 

1050* 

1006, 

1DDE* 

1DE6 



1 

5 

ANY 








I 

1048 

CAW 

1AD2* 

1864* 

1BA0* 

1C6C * 

1CB2* 

1034, 

1070 

1 

8 

CCO 








1 

4 

CCl 








1 

2 

CC2 








1 

1040 

CSW 








l 

4 

NEG 








1 

2 

POS 








l 

A 

RIO 

1880* 

1CC2, 

1080 





1 

B 

Rll 

1AD A * 

1A0E* 

1B6C * 

1B70* 

1BA8* 

1BAC* 

18EA 




1CQA* 

1C74. 

IC78, 

1CBA, 

1CBE, 

1D3C* 

1040 




1078* 

1D7C* 

1098* 

10AE 




1 

C 

R12 








1 

D 

R13 








I 

E 

R14 








1 

F 

R15 








1 

FOOO 

REG 

1AEE* 

1B00* 

1B1A* 

1B40* 

1BC8 * 

1BF6 * 

1C00 




1C 16* 

1C3E* 

1C90* 

1C 9 A * 

1C02 * 

1CFA* 

IDA4 




1DC2* 

10CC* 

10EE, 

10F8 * 

IE 18 



V 1 

1228 

S10 

IAOA, 

1B6C* 

18A8, 

1C74 * 

1C8A* 

1D3C* 

1078 

1 

F 

UNC 

1AF0* 

1802* 

1B20* 

1B42 * 

IBCA, 

1BEE, 

18F8 




1C02* 

1C0E * 

1C18, 

1C 36 * 

IC40 * 

1C92, 

1C9C 




1C04* 

1CF2* 

1CFC* 

1054* 

109C, 

10A6* 

10B2 




1DC4, 

10CE * 

10F0* 

1DFA * 

IE 10 * 

IE1A 


1 

1000 

BASE 

1AEE* 

1B00* 

181A * 

1840, 

1BC8 * 

IBF6 * 

ICOO 




1C16* 

1C3E, 

1C90* 

1C9A, 

1CD2 , 

ICFA, 

1DA4 




1DC2* 

10CC* 

IDEE* 

IDF8, 

IE 18 



' .1'.' 

192A 

EXIT 

1000* 

1AF0* 

1802, 

1B20» 

1B42* 

IBCA* 

1BF8 




ICO2* 

1C 18* 

1C40* 

1C92, 

1C 9C , 

1C 04, 

ICFC 




10A6t 

IOC 4* 

1DCE* 

10F0* 

IDF A * 

1E1A 


I 

48 

HC AW 








1 

40 

HCSW 








1 

28 

HI ON 








: " :l ., 

8 

NONE 

IA94* 

1AB0, 

1AF8* 

1B0A* 

1812* 

1838* 

I860 




1888, 

IBCO* 

1BE2* 

1C 28* 

1C 80* 

ICC A* 

1048 




1088* 

1090* 

108 A, 

1E02 





188E 

ROAR 








1 

1808 

SNSE 

1B0E* 

1024, 

1B2C* 

1834 * 

1884 * 

IBBC* 

18CE 

16JUN65 

: 22JUN65 

15JUL65 

150EC65 ^ 

L5MAR66 

15N0V66 


124263 

124249 

124265 

125601 

125632 

125655 


o 

o 

o 

o 

0 

O 

o 

o 

o 

o 


to 

PAGE 


o o o 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 


F80C 2821 SCAN, 1403 UNIVERSAL CHARACTER SET 
F80C5 CONTROL ROUTINE OVERLAY 2 


lBD6y lBDEy lC84y lD4Cy 108Cy 10D2y 1DDA 

1DE2 

I 1004 SNSW 

1 4 SOME 

1 6 UNEQ lAAOy lC32y 1C4E» 1CEE * 1022 

1 C ZNEG 

1 157C CMPAR 

1 11A4 CSWAG 


7 

1E60 

DATA2 

1B46# 

1C 44 






4 , 

1A90 

ENTRY 








1 

19A4 

EX1T2 

1000, 

1AA0 






1 

D 

NHIGH 








1 

1A14 

READS 

1000, 

1BB0, 

ICC 2, 

1080 




1 

1A8C 

RTN02 

1015 







1 

1000 

SECNO 

1000, 

1000, 

1000, 

1000, 

1000, 

1000, 

1000 




1000, 

1000, 

1000, 

1000, 

1000, 

1000, 

1000 




1000, 

1000, 

1000, 

1000, 

1000, 

1000, 

1018 




1EF4 







l 

1120 

SENSE 








l . 

1753 

UAPRT 








1 

157C 

UCSAR 

1AB8, 

1AB8, 

1ABE, 

1ABE, 

1AC4, 

1B4A, 

1850 




1B50, 

1B56, 

1C52, 

1C 52 , 

1C58, 

1C58, 

1C5E 




1D00, 

1D08, 

1D26, 

1062, 

1E06, 

1E30, 

1E38 




1E40, 

1E50, 

1E58 





1 

10E0 

UN IT 1 

1AAC 







1 

1807 

AGSTAT 

1B06, 

1B7C , 

1BB4, 

1C7C , 

1CC6, 

1044* 

1084 

1 

1908 

BITCKO 

1000, 

1BEA, 

1C0A, 

1098, 

10AE 



1 

1121 

CAWKEY 








1 

1805 

CESTAT 








1 

1927 

CROAT A 

1DB6 







1 

1809 

CKRDAR 

1C1C, 

1C20, 

1CD8, 

1C DC 




1 

B 

CSWNST 








l 

1118 

CSWSAV 

1AE2 







1 

1806 

DESTAT 








8 ' 

1E20 

DPRCCW 

1B9C, 

1CAE 






4 

1A9C 

ENTRY1 

1A94 







7 

1E67 

ERR02I 

1B40 







7 

1E6E 

ERR022 

16 1A 







7 

1E75 

ERR023 

1BC8 







7 

1E7C 

ERR024 

1C 16 







7 

1E83 

ERR025 

1C3E 







7 

1E8A 

ERR026 

1C90 







7 

1E91 

ERR027 

1C 9 A 







7 

1E98 

ERR028 

1CD2 







7 

1E9F 

ERR029 

1DA4 







7 

1EA6 

ERR030 

1DC2 







7 

1EAD 

ERR031 

1DF8 







7 

1EB4 

ERR032 

1C 00 







7 

1EBB 

ERR033 

10EE 







7 

1EC2 

ERR034 

1BF6 







7 

1EC9 

ERR035 

1DCC 







7 

1ED0 

ERR036 

1AEE 







7 

1E07 

ERR037 

1B00 







7 

1E0E 

ERR038 

1CFA 







l 

1928 

EXPECT 








8 

1E30 

LDUCS1 

1ACE, 

1B60, 

1C68, 

1030 




8 

1E50 

LDUCS2 








1 

9 

NMIXED 








1 

D 

NOTBSY 








15 

1EE5 

OKMESS 

IE 18 







1 

157C 

OUTPUT 








8 

1E28 

PRCCW2 








l 

1929 

PROGSW 

1A90, 

1AA4, 

1ACA, 

1B5C, 

1B8C , 

1C64, 

ICAO 




1D2C, 

1D58, 

1068, 

1DFE, 

1E0C 



8 

1E40 

PRTUCS 

1D6C 







1 

1A2A 

READS2 








1 

19FA 

SAVSTA 

1000, 

1ADE, 

1B70, 

1BAC, 

1C78, 

1CBE, 

1040 


1D7C 


DATE 16JUN65 22JUN65 15JUL65 15DEC65 15MAR66 15N0V66 

EC 124263 124249 124265 125601 125632 125655 


ccccccecccccccccco© 
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F80C 2821 SCAN, 1403 UNIVERSAL CHARACTER SET 
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1 1751 SCHNUM 1A98* 1A9C, 1B1C 
1 157C SCPDAT 1000, 1000, 1EF4 
1 1678 SCPROO 

1 1122 SIOSWS 1AD6, 1AF4, 1B68, 1B74, 1BA4, IC70, 1CB6 

1038, ID74 

1 1118 SI0VR3 1EF4 

1 1108 SI0VR4 

1 HOC SI0VR9 

1 119F STATSV 



1 10E2 U1ADDR 

6 1AB8 UCBMOO V‘>.' 

4 1AF4 UCBM05 1AE6 

2 1AFC UCBM10 1B78 

4 1B06 UCBM20 1AF8 

2 1B16 UCBM30 1B88, 1D50 

4 1B24 UCBM50 1B12 

2 1B3C UCBM52 1BDA 

4 1B46 UCBNOO 1B0A 

6 1B4A UCBN10 1C4E 

4 : 1B8C UCBN20 1B80 

2 1BC4 UCBN25 

4 1BCE UCBN30 1BC0 

2 1BFC UCBN35 1B30, 1BD2 

4 1C06 UCBN40 1BEE 

4 1C1C UCBPOO 1BB8, 1BE2 

4 1C24 UCBP05 1C32 

2 1C3A UCBP10 1C28, 1DBA, 1DDE 

4 1C44 UCBP50 1C36 

6 1C52 UCBQOO 

2 1C96 UCBQ20 1C88 

4 ICAO UCBROO 1C80 

2 1CCE UCBR10 1054 

4 1C08 UCBR20 1CCA 

4 1CE0 UCBR25 1CEE 

2 1CF6 UCBR30 ICE4 

4 1000 UCBR40 1CF2 

4 1D0C UCBR50 1018, 1D22 

4 1058 UCBR55 1D48 

4 1D6C UCBR60 1E10 

4 1DAA UCBR70 1D9C 

2 1DC8 UCBR80 1B28, 1C0E, 1DB2 

4 1DD2 UCBSOO 1D90 

2 IDEA UCBS05 1838 

2 1DF4 UCBS10 1DD6 


4 

1DFE UCBTOO 

1D88, 

1DE6 






1 

176C WRAREA 

1000, 

1000, 

1000, 

1000, 

1000, 

1000, 

1000 



1000, 

1000, 

1000, 

1AC4, 

1B56 , 

1B90 , 

1B96 



1B96, 

1C5E, 

1CA4, 

1CA8» 

1CA8 , 

1026, 

105C 



1D5C, 

1062, 

1E 0 6, 

1E20, 

1E26, 

1E48 



1 1000 XF80C5 

NO ERROR DETECTED IN ABOVE ASSEMBLY 




ID F3CC-5 1 
PAGE 17 i 


DATE 

EC 


16JUN65 

124263 


22JUN65 15JUL65 15DEC65 15MAR66 

124249 124265 125601 125632 


15N0V66 

125655 



ID F80C-5 
PAGE 17A f 





1 

[ 

1 

IBM MAINTENANCE DIAGNOSTIC PROGRAM 

) 

P/N 

840223 

ISM MAINTENANCE DIAGNOSTIC PROGRAM 


P/N 

'' 1 

- 1 

•' ' ' F 

840223 j 
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PAGE 

18A f 

' f 


F80C 2821 SCAN 1403 

UCS OVERLAY 1+2 




F80C 2821 SCAN 1403 

UCS OVERLAY 1+2 





PERIODS CORRESPOND TO 

BLANK COLUMNS. 




BTXT.ALA. 

. A8 . 

.AABO.A 

IFGG2DAA0DGA2DKG1Q0. 

AJ1SGA48PA1G1GH.1DF. 

3BG03DEA0AGA80C50017 










9 Y9Y 

Y9 

Y98- 8 

RZ R-Y 9ZQ R 9 9- 

-Y 9ZQ 9 9 Q QR 8Z 

OZ YQY+YZY 



COLS. 1 

THROUGH 20 

COLS. 21 THROUGH 40 

COLS. 41 THROUGH 60 

COLS. 61 THROUGH 80 


9 

9 

9 9 

0 9 0 

9 9 9 

9 9 9 



BESD......AA. 

•AAXF80 

C3**AAAAoAGA....**«« 

.840 

224*125655..80C50001 


BTXT.ALH. 

• A8 • 

.AA3DG. 

3BG03K0AIGQDG03KAD1S 

GA3KH.IDEAOAGA3WOA1G 

DDF.3QKG1M1Q80C50018 



9 

YQ 

Y9 

YYQY Y89 




9 Y90 

Y9 

Y9 YZ 

Z Y 9 Q-ZZ Y-9 9 

ZY YR 8QY+YZQ 9 Q 

-ZZ 909 

f 



99 

9 

9999 99 




9 - 

& 

9 

9 9 


9 9 9 9 0 




BTXT.AAA. 

• AS* 

« AA8D+A 

AAAAAAAAAAAAADAAGAK- 

AAAAAAAAAAAAAAAAAAAA 

AAAAAAAAAAAA80C50002 

i 

i 

BF XT.ALO * 

* A8. 

• AA0A1Q 

1GAD1QGA4DEA4KB0.61M 

G02DAG1RG+4DAB1QGA48 

E046AK1J64468QC50O19 



9 YQY 

Y9 

Y9 8 Y 

YYYYYYYYY9QY99YY8Y8 

YYYYYYYYYYYYYYYYYYYY 

YYYYYYYYYYYY 


9 Y9 

Y9 

Y9 9 0 

0-8 OZQ 8ZQ 88- 9 Y 

Z R-Q OZ 8-9 OZY 9 

Z+ 8-0 YZ 8 



999 

9 

9 9 9 

999999999 9 99999 

99999999999999999999 

999999999999 

1 

9 

9 

9 

9 9 9 Z 9 

0 Z 

9 9 

| 


BTXT.AA8* 

«A8* 

•AAAAAA 

AAAAAAAAAAAAAAAAAAAA 

AAAAAAAAAOAAGAPMAAAA 

AAAAAAAAAAAA80C50003 


BTXT.AMY. 

• A8 . 

•AAFA1S 

A*1JGA48GA1SHJ0UGCEA 

4KB0.71MG02DEA4K80.6 

1MG02DKB1E7C80C50020 

I 


9 YQ9 

Y9 

Y9YYYY 

YYYYYYYYYYYYYYYYYYYY 

YYYYYYYY99YY8Y98YYYY 

YYYYYYYYYYYY 


9 Y99 

Y9 

Y9-9 9 

- YZQ 9-9 9-8 9QZQ 

88 - 8 YZ RZQ 88- 9 

YZ R 9 0 R 



99 

9 

9 9999 

99999999999999999999 

99999999 9999 9999 

999999999999 


9 

9 

9 

9 9 9 Z Z 

9 9 0 Z 9 

0 



BTXT.AAO. 

* AA* 

•AAAAAA 

AAAAADAAGAL8.. 




BTXT.AM-. 

. A8 • 

•AABEAD 

AHAEBEAHAMAKBEAAAJAX 

B01DG3KB137CAA5Q+A0H 

KA0H1/8EADAH80C50021 



9 YQ+ 

YQ 

Y9YYYY 

YYYY99YY8Y9Y 




9 Y9 

Y9 

Y98QY9 

YZ9Q8QY9909 8QY99Y9 

- Y9 9 RZY Z Y Z 

Y Z 98QY9YZ 



99- 

99 

9 9999 

9999 9999 




9 

9 

9 999 

9 0999 999 9 

9 9 9 

9 999 9 



BTXT.AAS. 

. A8* 

•AACAAA 

AAAAAAAAAAAAAAAAAAAA 

AAAAAAAAAAAAAAAAAAAA 

AAAAAAAAAAAA80C50005 


BTXT *AMH* 

• A3. 

•AAACKC 

OHOHOAOAEA4QAAODGA5B 

+A1AB02BAA1AGA5AB32B 

GA46B22BAJ1A80C50022 

l 

1 


9 YQ8 

Y9 

Y90YYY 

YYYYYYYYYYYYYYYYYYYY 

YYYYYYYYYYYYYYYYYYYY 

YYYYYYYYYYYY 


9 Y9- 

Y9 

Y99Q 9 

-Z ZQY+YZY 0-Y 9ZQ R 

Y Q- 8-Q QZY Y- 8 

ZQ - 8-Y Q 



99 

9 

9 9 9 

99999999999999999999 

99999999999999999999 

999999999999 


9 

9 

9 Z 

9 9 9 9 

9 9 9 Z 9 9 9 

9 9 9 9 



BTXT.AJQ. 

• A8« 

•AAAAAA 

AAAAAAAI/O.ADDR.XXX* 

CAW* XXXXXXXX*GOT* CCO 

.BUT.NO*INTE80C50006 


BTXT.AMO. 

• A8. 

•AAGA46 

B12BKB2A14KG2J0.BEAB 

BUBPBO.11KG05BB0./IK 

G05BPG2J2JH.80C50023 



9 Y99 

Y9 

Y9YYYY 

YYYYYYY 




9 Y9- 

Y9 

Y9ZQ 

- 8 8 Q 8 9 Y- 8QY9 

99998- 9 YZ R8- 9 Y 

Z R 9 Y YR 

■ . i 


9 

9 

9 9999 

9999999 




9 

9 

9 9 

999 9 999 

9 9 9 9 

9 9 

| 


BTXT.AJ+. 

* A8* 

•AARRUP 

TAI/O.ADDR.XXX.CAW.X 

XXXXXXX.GOT.CCi.CSW* 

STATUS.XXXX.80C50007 


BTXT.ANH. 

. A8. 

•AAJHEA 

OAG.5KF*56605JOG2JO. 

AG2VG+58AD2UG058A32U 

GA5BBEAHBJBA80C50024 



9 Y9 

Y9 

Y9 

Y 




9 Y99 

Y9 

Y9Z-QY 

+YZ 8Z 8Z Y 9 Y- 

-Q 9Z 9-8 9Z+.9— 9 

ZY 88QY99Y9Q 



9 

9 

9 

9 




,/ 9 

9 

9 9 

9 9 9 9 9 

Z 9 

999 9 9 



BTXT*AJM* 

• A8* 

•AASNS* 

XX.MAKE.PRINTER.RDYA 

AAAAAAAAAAAAI/O*AOOR 

* XXX « CAW.XXX80C50008 


BTXT.AN.. 

• AS. 

•AAB0.6 

1KG05BKC0H1MG7H.JHEA 

0AGA4BF.5FG04BAADAJJ 

AAAAAAN4AAAA80C50025 

. , | 


9 Y90 

Y9 

Y9 

Y 

YYYYYYYYYYYY 



9 Y9 

Y9 

Y98— 9 

YZ R 9 Z 99 R Z-QY 

♦ YZY QZ RZ QYY9Y9Y 

YYY9YY98YYYY 



9 

9 

9 

9 

999999999999 


j 

9 

9 

9 9 

9 9 

9 99 9 9 

999 99 9999 



BTXT.AJO* 

• A8« 

•AAXXXX 

X.GOT.CCO.CSW. XXXXXX 

XXXXXXXXXX.SNS.XX.I/ 

0*ADDR*XXX.C80C50009 

! 

BTXT.ANH. 

. A8. 

•AAAAAA 

AAAAAAAAAAAAAAAAAAAA 

AAAAAAAAAAAAAAAAAAAA 

AAAAAAAAAAAA80C50026 



9 Y9+ 

Y9 

Y9 





9 Y9R 

Y9 

Y9YYYY 

YYYYYYYYYYYYYYYYYYYY 

YYYYYYYYYYYYYYYYYYYY 

YYYYYYYYYYYY 



9 

9 

9 





9 0 

9 

9 9999 

99999999999999999999 

99999999999999999999 

999999999999 



BTXT.AJ8* 

* A8. 

• AAAW.X 

XXXXXXX.GQT.CCO.CSW. 

XXXXXXXXXXXXXXXXAAAA 

AAAAAJOUKC1M80C50010 


BTXT.ANA. 

• A8. 

•AAAAAA 

AAAAAAAAAAAAAAAAAAAA 

AAAAAAAAAAAAAAAAAAAA 
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8Y8Z8Y888Y8R9Y88 
999 999 999 99 


.80C50090 


.80C5C091 


BTXT.AMM«.A8..AADGF4 G09SAE8BAA8BADAAGAD2 

9 Y89 Y9 Y9Z908 Z 8Z9 8ZQ 8-9QYZYQ8 

99 9 9 Z 9 9 9 9 99 29 

BTXT.AMD..A8..AANAG- CBPA5454PW5F5FKC7V55 

9 Y88 Y9 Y998Z Q80888QQ088 

99 9 9 9 Z Z Z 

BTXT.AMO.•A8••AAAD8H GADFB0DGFBG09SB0DGFA 

9 Y80 : Y9 Y9—9 9 ZQQ-S-Z9QYZ 88-Z9Q- 

99 9 9 9Z 9 Z 99 Z 


AJAANAG-DUGODDBODGFC 
Z9Y999Z G9Z QZ8-Z9Q0 
9 119 1 

FJ9/AAFA+A0HBA1SEA2Y 
-Y 8ZYQQ Y Z-Y 9ZQ 9 
9 9 9ZZ 9 9 0 

G09SDG9/BG7VKB7W7VAA 
2 8-Q 8-Q 8 0 8 8ZY 

9 9 9 Z 9 


G09SAAFPAIAA8GC50075 
Z 8ZYQZZ-Y9 
9 9Z 9 

EA9BAB8GGADJ80C50076 
ZQ Q-9 9ZYQY 
0 Z Z 

FJ+A0HBA1S EA80C50077 
QY Y 2-Y 9ZQ 
29 9 9 0 


BTXT.AMD..A8..AA2YEA 9BEJBMAB8GGADQB0DGFH 

9 Y8Q Y9 Y9 9ZQ QZYQ9-9 92YQ 8-Z9Q- 

990 9 9 0 2 2 T9 2 

BTXT.AM4..A8..AAEAB0 DGFFG09SAA6VAJAAAA55 


G09SAE8BAA8BADAAGAD6 
Z 8Z9 82Q 8-9QYZQQ 
9 999 9992 

B/AAASAAE.AAGAEDAJAA 


AJAANAG-DS6080C50078 
Z9Y9992 Q8Z 
9 2 

NAG-EDKC7V5580C50079 


9 Y8 

Y9 

Y9QY8- 

29QQ2 82Y 82YY92Q 8 

Z9YYZ9Y9- QYZYQ8Z9Y9 

9QZ Q8 0 8 8 

99 

9 

9 299 

29 99 99 9 

99 9 99 Z9 9 

9 Z9 

BTXT.ANU. 

. AS • 

•AAFJ9/ 

AAFA+A0HBA1SEA2YEA9B 

AB8GGAEHAD8HGAC0G0DF 

DG9/PC7V7VKG80C50080 

9 Y88 

Y9 

Y9-Y 8 

ZYQQ Y Z-Y 9ZQ 9ZQ Q 

-9 9ZYQR-9 9ZQQ9Z QY 

■Q 8 0 8 8 R 


BTXT•ANM*•A8.« AA7V55 FA9/AAF.+A0HBA1SEA2Y 

9 Y8Z Y9 Y9 8 8 -Y 82YQ Y 2-Y 92Q 9 

99 9 9 9 9Z 9 9 0 

BTXT.AND..A8..AAG0EK B0EGFGG09SAAABEA9QG0 

9 Y8Q Y9 Y9Z QY 8-Z9QQZ 8ZQY9ZQ Z 

99 9 9 1 9 1 9 99 0 

BTXT. ANM. .A8..AA8HGA E4AH8HGAD2AA8HGAEFB0 

9 Y8 Y9 Y9 9ZQ Q -9 9ZQQ8-9 9ZQQQ8- 

99 9 9 9 Z 9Z9 9ZZ9 

BTXT.ADD. .AS.. AAD79/ G0EUB0DGFV609SGAEAPV 

9 Y88 Y9 Y9-8 8 Z Q88-98Q Z 89Y9Y98 

999 99 9 29 9Z 999 


EA9BEJBMA88GGAEFAA8H 
ZQ QZYQ9-9 9ZYCQ-Q 9 
0 Z Z ZZ 9 

EHAD9XGAD2B0DGFOGO9S 
Q -9 9ZYQ86-Z9Q0Z 8 
Z Z99 Z 9 

DGFCG09SB0DGFNG09SAA 
Z9QQZ 88-Z9QYZ 8-Y 
ZO 99 Z 9 

JAAHEAPVJAAALAN4-AAA 
YYY-9Y98YYY9YY98 YY9 
999 9 999 99 99 


GAEKAAAAEA9Q80C50081 
ZYQ ZQY9ZQ 
Z 99 0 

B0DGFIGG9SAD80C5G082 
8-Z9Q Z 8-9 
9 Z 9 

9/GAFMKG7V5580C50083 
8ZYQ9 R 8 
9 Z 0 

CAN5JAADLAN480C50084 
QY98YY99YY98 
Z9 99 99 


DATE 16JUN65 22JUN65 15JUL65 15DEC65 15MAR66 15N0V66 

EC 124263 124249 124265 125601 125632 125655 


ID F8CC-5 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM P/N 840225 

PAGE 1 

F80C 2821 SCAN, 1403 UNIVERSAL CHARACTER SET 
F80D3 PRINT BUFFER DATA REGISTER ROUTINE OVERLAY 3 


DATE 

EC 


16JUN65 
124263 


80D3 TITLE F80D3 PRINT BUFFER DATA REGISTER ROUTINE OVERLAY 3 

*********************************************************************** 


* * 

* MODIFICATIONS * 

* * 

* REVISION LEVEL 3. THIS REVISION DIFFERS FROM VERSION 2 AS * 

* FOLLOWS... * 

* * 

* 1. PRINT BUFFER DATA REG FLT -ROUTINE OVERLAY 03- * 

* THIS ROUTINE WAS NOT MODIFIED. * 

* 2. UCS DATA REG FLT -ROUTINE OVERLAY 04- * 

* A MESSAGE WAS ADDED TO INDICATE THAT THE CONTENTS OF * 

* THE UCS BUFFER WAS DESTROYED, AND COULD BE RESTORED * 

* BY PROGRAM F837. * 

* 3. UCS BUFFER RESTORE RTN -ROUTINE OVERLAY FF- * 

* THIS ROUTINE WAS DELETED FROM THE PROGRAM PACKAGE. * 

' * THE SCAN PROGRAMS NO LONGER RESTORE THE UCS BUFFER— * 

* THEREFORE, DATA CARDS DEFINING THE UCS CHAIN * 

* CONFIGURATION ARE NOT TO BE ADDED TO F80C/F8/D. * 

* PROGRAM F837 IS TO BE USED TO RESTORE THE UCS BUFFER. ! * 

* * 

* ENGINEERING CHANGE PREREQUISITES * 

* 1. MACHINE * 

* 2821 CONTROL UNIT WITH 1403 UCS ATTACHMENT AT MINIMUM * 

* E.C. LEVEL 125655 * * 

* 2. PROGRAM * 

* NONE * 

* * 

* USE DESCRIPTION F80C* AT E.C. 125655, DATED 1 NOV 66 OR LATER * 

* 1 * 

#*++*+#***%**#******************#*********#**&%******#*#*#***+****$***# 
* * 

* REVISION LEVEL 2. THIS REVISION DIFFERS FROM VERSION 1 AS * 

* FOLLOWS... * 

* * 

* 1. PRINT BUFFER DATA REG FLT -ROUTINE OVERLAY 03- * 

* THIS ROUTINE WAS NOT MODIFIED * 

* 2. UCS DATA REG FLT -ROUTINE OVERLAY 04- * 

* THIS ROUTINE WAS NOT MODIFIED * 

* 3. UCS BUFFER RESTORE RTN -ROUTINE OVERLAY FF- * 

* THE OPTION TO RESTORE THE UCS 8UFFER WITH THE DATA * 

* CHECK LATCH -ON- OR -OFF- WAS INCLUDED. IF SECTION * 

* SENSE SWITCH 28 IS SET TO 1, THE DATA CHECK LATCH * 

* WILL BE TURNED -ON-OTHERWISE, THIS LATCH WILL REMAIN * 

* IN THE -OFF- STATE. * 

* * 

* ENGINEERING CHANGE PREREQUISITES * 

* 1. MACHINE * 

* 2821 CONTROL UNIT WITH UCS ATTACHMENT AT MINIMUM * 

* E.C. LEVEL 125632 * 

* 2. PROGRAM * 

4 NONE * 

* * 

* USE DESCRIPTION F80C* AT E.C. 125632, DATED 15 MAR 66 OR LATER * 

* * 


*********************************************************************** 
XF80D3 START 4096 
001000 .USING *,15 

*********************************************************************** 

* ROUTINE OVERLAY 3 i * 

************************************************************** 4 ******** 

* RESIDENT LABELS ADDRESSED BY OVERLAYS * 

*********************************************************************** 

001000 0 SECNO EQU * 

001004 SNSW EQU SECNO+4 

001040 CSW EQU SECNO+64 


15JUL65 

15MAR66 

15N0V66 ^ 

ID F80D-3 

124265 ‘ 

125632 

125655 

PAGE 1 
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c 



IBM MAINTENANCE DIAGNOSTIC PROGRAM P/N 840225 

PAGE 1A 


F80C 

2821 SCAN, 

1403 UNIVERSAL 

CHARACTER SET 

F80D3 

PRINT BUFFER 

DATA REGISTER 

ROUTINE OVERLAY 3 



001048 

CAW EQU 

SECNO+72 



OOIOEO 

UNIT1 EQU 

SECNO+224 


V 

0010E2 

U1ADDR EQU 

SECNO+226 



001118 

SI0VR3 EQU 

SECNQ+280 



001108 

SI0VR4 EQU 

SECNO+264 



001122 

SIOSWS EQU 

SECN0+290 



00119F 

STATSV EQU 

SECN0+415 



0011A4 

CSWAG EQU 

SECN0+420 



001121 

CAWKEY EQU 

SECNQ+289 



001120 

SENSE EQU 

SECNQ+288 



00157C 

SCPDAT EQU 

SECNQ+1404 



001678 

SCPROO EQU 

SECN0+1656 



001228 

SIO EQU 

SECN0+552 



001751 

SCHNUM EQU 

SECNO+1873 



001753 

UAPRT EQU 

SECNO+1875 




*********************************************************************** 



001015 

ORG 

SECNO+21 

001015 

001830 


DC 

AL3(RTN03) INITIAL PSW STARTING AODR FOR RTN 03 



00176C * 

ORG 

SECN0+1900 




*********************************************************************** 
* VARIABLES FOR ROUTINE 03 - DOUBLE WORD BOUNDARY * 

*******+***+***+*±*+++ 4 +*++++*++++++**+*+*+**++*+++*++* 4 +++++++++++++++ 

00176C 



CNOP 

0,8 ALIGN ON OOUBLE WORD BOUNDARY 

00176C 

07 00 


BCR 

0,0 

00176E 

07 00 


BCR 

0,0 

001770 

00000000 


WKAR DC 

3F *00* 

001774 

00000000 




001778 

00000000 





*********************************************************************** 
* VARIABLES FOR ROUTINE 03 - NO BOUNDARY * 

*********************************************************************** 


00177C 
001735 

000000000000000000 

00 

DATWK 

DC 

XL10 *00* 

001786 

80 

DAT80 

DC 

X'80' 

001787 

000000000000000000 


DC 

XL9'00* 

001790 

40 

DAT40 

DC 

X *40 * . 

001791 

000000000000000000 


DC 

XL9'00* 

00179A 

20 

DAT20 

DC 

X *20* 

001793 

000000000000000000 


DC 

XL9 * 00• 

0017A4 

10 

DAT10 

DC 

X »10* 

0017A5 

000000000000000000 


DC 

XL9 * 00 1 . 

0017 AE 

08 

DAT08 

DC 

X * 08 * 

0017AF 

OOOOOOOOOOOOOOOOOO 


DC 

XL9* 00 * 

001783 

04 

DAT04 

DC 

X' 04 • 

0017B9 

000000000000000000 


DC 

XLg^oo* 

0017C2 

02 

DAT02 

DC 

X • 02 * 

0017C3 

000000000000000000 


DC 

XL9•00• 

0017CC 

01 

DAT01 

DC 

X*01* 

0017CD 

oooooooooooooooooo 


; dc 

XL9•00• 

0017D6 

‘ 00 

DATOO 

DC 

X*00* 

0017D7 

oooooooooooooooooo 


DC 

XL9•00• 

0017E0 

FF 

DATFF 

DC 

X *FF • 

0017El 

oooooooooooooooooo 

MSG1 

DC 

XL9*00* 

0Q17EA 

0017F3 

D5D640C4C1E3C140E3 

D9C1D5E2C6C5D9 

DC 

C*N0 DATA TRANSFER* 

0017 FA 
001803 

D9C5C440C2E840C4C9 

C1C7D5D6E2E3C9 


DC 

C *REO BY OIAGNOSTI• 

0018 0 A 
001813 

C340C3C8C5C3024009 

C5C1C440C6D609 


DC 

C*C CHECK READ FOR* 

00181A 

40C4C5E5C9C3C540E7 


DC 

C* DEVICE XXX* 

001823 

E7E7 

. * . 



001825 

C5D9094OF0F0F040 

EfcRXX 

be 

C*ERR 000 • , 

0018 2 E 


*********************************************************************** 
* ROUTINE 03 PREFIX * 

*********************************************************************** 
CNOP 0,4 FULL HORO ALIGNMENT 

00182E 

07 00 

BCR 

0,0 

001B30 

03 

RTN03 

DC 

XLl*03* ROUTINE NUMBER *• . 


DATE 16JUN65 15JUL65 15MAR66 15N0V66 ID F80D-3 

EC 124263 124265 125632 125655 PAGE 1A 









IBM MAINTENANCE DIAGNOSTIC PROGRAM P/N 840225 

PAGE 2A 

F80C 2821 SCAN, 1403 UNIVERSAL CHARACTER SET 
F80D3 PRINT BUFFER DATA REGISTER ROUTINE OVERLAY 3 


0019IE FTEA DC AL2(MSGi-BASE+REG) ,, ADDRESS OF MESSAGE 

001920 47 FO F 8E2 BC UNC,PBDR20 60 TRY DIAG CK READ AGAIN 


* * ♦ * * * * * * * * * * * * * ♦ * * * * * * * * * ♦ * * * * ♦ ♦ * * * * * * * * ♦ * * * * * * ♦ * * * * * * * * ♦ * * ♦ * * * * ** * * * * 
* DATA ANALYSIS ROUTINE * 

I********************************************************************** 


001924 

41 

10 

F 

786 



PBDR30 

LA 

R1,DAT80 

INITIALIZE ANALYSIS ROUTINE 

001928 

41 

30 

F 

57C 




LA 

R3,SCPDAT 

, f 

00192C 

D2 

09 

F 

77C 

1 

000 

PBDR31 

MVC 

DATWK(IO),0(R1) 

MOVE DATA GROUP INTO WORK AREA 

001932 

43 

40 

F 

77C 




IC 

R4,DAWR 

SET UP MASK 

001936 

92 

00 

3 

000 




MVI 

Ot R3) tX^O* 

SET SW SAYING EXPECTED BIT OFF 

00193A 

44 

40 

F 

974 




EX 

R4,PBDR37 

SEE IF EXPECTED BIT ON 

00193E 

47 

80 

F 

946 




BC 

NONE ,PBDR32 

BR IF NO 

001942 

92 

FF 

3 

000 




MVI 

0(R3)fX *FF' 

SET UP TO SAY EXPECTED BIT ON 

001946 

92 

00 

3 

014 



PBDR32 

MVI 

20(R3)tX*00* 

SET SW SAYING DID NOT GET CH END PAR 

00194A 

91 

01 

F 

780 




TM 

WCKRD,X *01 • 

SEE IF GOT PARITY 

00194E 

47 

80 

F 

95E 




BC 

NONE,PBDR33 

BR IF NO 

001952 

. 91 

02 

F 

77D 




TM 

STAT1,X *02 • 

SEE IF GOT UC WITH CE 

001956 

47 

80 

F 

95E 




BC 

NONE,PBDR33 

BR IF NO 

00195A 

92 

FF 

3 

014 




MVI 

20IR3),X»FF* 

SET SW SAYING GOT PARITY WITH CE 

00195E 

41 

10 

1 

OOA 



PBDR33 

LA 

Rl,10(RO,R1) 

UPDATE ADDRESSES 

001962 

41 

30 

3 

001 




LA 

R3 »1(R0,R3) 

11 

001966 

15 

12 






CLR 

RltR2 

SEE IF FINISHED 

001968 

47 

60 

F 

92C 




BC 

UNEQ,PBDR31 

CONTINUE 

00196C 

41 

20 

F 

7E0 




LA 

R2,DAT00+10 

SET UP GR 2 

001970 

47 

FO 

F 

978 




BC 

UNC,PBDR40 


001974 

91 

00 

F 

781 



PBDR37 

♦ 

TM 

DARDtX # 00* 

TEST IF BIT READ OK - USED WITH EX 

001978 

92 

00 

F 

5AE 



♦ 

PBDR40 

MVI 

SCPDAT+50,X *00 * 

SET UP COMPARE FIELDS 

00197C 

D2 

08 

F 

5AF 

F 

5AE 


MVC 

SCPDAT+51(9),SCPDAT+50 ,, 

001982 

92 

FF 

F 

5C2 




MVI 

SCPDAT+70 fX *FF• 

11 

001986 

D2 

08 

F 

5C3 

F 

5C2 


MVC 

SCPDAT+71(9)tSCPDAT*70 ,, 1 

00198C 

D5 

07 

F 

57C 

F 

5AE 


CLC 

SCPDATI8)tSCPDAT+50 

SEE IF UNABLE TO TURN ON ANY OR BIT 

001992 

47 

60 

F 

9A0 




BC 

UNEQ,PBDR50 

BR IF NO 

001996 

OA 

DO 






SVC 

X'DO* 

ERR 050 - NO PR BUF DAT REG BITS CAN 








* 



ft BE TURNED ON - PRINT BUFFER DATA 








* 



,, REG RESET MAY BE ON SOLID 

001998 

44 







DC 

X *44 * 

,t ERROR OUTPUT 

001999 

07 







DC 

X *07 * 

ft 7 CHARACTERS 

00199A 

FB49 






DC 

AL2(ERR050-BASE+REG) 

,, ADDRESS OF MESSAGE 

00199C 

47 

FO 

F 

A70 



* 

BC 

UNC,LGQUT 

GO SEE IF WANT LOG OUT 

0019 AO 

91 

FF 

F 

7DB 



* 

PBDR50 

TM 

DAT00+5,X *FF• 

SEE IF ALL DATA REG BITS ON SOLID 

0019A4 

47 

10 

F 

9AC 




BC 

ALL»PBDR51 

BR IF YES 

0019A8 

47 

FO 

F 

9B6 




BC 

UNC,PBDR60 

CONTINUE ANALYSIS 

0019AC 

OA 

DO 





PBDR51 

SVC 

X •DO* 

ERR 051 - ALL PRINT BUFFER DATA REG 








* 



ft BUTS ON SOLID - POSSIBLY NOT 








* 



»» GETTING PRINT BUFFER DATA REG 








* 



tt RESET 

0019AE 

44 







DC 

X *44 • 

tt ERROR OUTPUT 

0019AF 

07 







DC 

X*07« 

tt 7 CHARACTERS 

0019BO 

FB50 






DC 

AL2(ERR051-BASE+REG) 

»t ADDRESS OF MESSAGE 

0019B2 

47 

FO 

F 

A70 



* 

BC 

UNCtLGQUT 

GO SEE IF WANT LOG OUT 

. 

0019B6 

41 

10 

F 

786 



♦ 

PBDR60 

LA 

R1.DAT80 

INITIALIZE ROUTINE 

0019 BA 

41 

50 

0 

034 




LA 

R5» 52 

11 

0019BE 

41 

20 

F 

7CC 




LA 

R2»DAT01 

11 

0019C2 

D2 

09 

F 

77C 

1 

000 

PBDR61 

MVC 

DATWKUO),0CR1> 

MOVE DATA TO WORK AREA 

0019C8 

41 

90 

5 

000 




LA 

R9,0(R0,R5) 

SET UP ERROR NUMBER 

0019CC 

43 

40 

F 

770 




IC 

R4,DAWR 

SET UP MASK 

0019 DO 

44 

40 

F 

974 




EX 

R4,PBDR37 

SEE IF BIT READ 

001904 

47 

80 

F 

9FA 




BC 

NONE,PBDR63 

BR IF NO 

0019D8 

41 

90 

9 

001 




LA 

R9 t l(R0,R9) 

SET UP ERROR NUMBER 

0019DC 

44 

40 

F 

9F6 




EX 

R4,PBDR62 


0019E0 

47 

10 

F 

9FA 




BC 

ALL,PBDR63 


0019E4 

15 

12 






CLR 

Rl, R2 

SEE IF FINISHED HERE j 

DATE 

16JUN65 


15JUL65 

15MAR66 15N0V66 


* ID F800-3 | 

EC 

124263 * 


124265 - 

125632 125655 


PAGE 2A j 








ccccccccccccccccc 


IBM MAINTENANCE DIAGNOSTIC PROGRAM P/N 840225 

PAGE 3 


F8GC 

2821 

SCAN, 

r 1403 

UNIVERSAL 

CHARACTER 

SET 


F80D3 

PRINT 

BUFFER DATA REGISTER 

ROUTINE OVERLAY 3 


| 0019E6 

47 

80 

F 

A10 




BC 

EQ,PBDR70 

BR IF YES 

0019 E A 

41 

10 

1 

OOA 




LA 

RltlOCROfRl) 

UPDATE ADDRESS 

0019 EE 

41 

50 

5 

002 




LA 

R5,2(RG,R5) 

UPDATE ERROR NUMBER 

1 0019F2 

47 

FO 

F 

9C2 




BC 

UNC,P8DR61 

CONTINUE 

j 0019F6 

91 

00 

F 

7DB 



PBDR62 

TM 

DAT00+5,X *00 8 

SEE IF BIT IN OFF STATE.- USED BY EX 

i 0019 FA 

4E 

90 

F 

770 


- 

PBDR63 

CVD 

R9v WKAR 

CONVERT ERR NO* TO PRINTABLE 

l 0019FE 

OA 

DO 






SVC 

X *DD • 

,, 

001A00 

0002 






DC 

AL2(2) 

ft 

! 001A02 

0776 






DC 

AL2CWKAR+6-SECN0) 

,, 

1 001A04 

0829 






DC 

AL2(ERRXX*4-SECN0) 

♦, 

( 001A06 

OA 

DO 




•\ . • ... 


SVC 

X "DO • 

ERROR - DATA REG BIT HOT OR CANNOT 








♦ 



,, BE TURNED ON - ERR NO* IN GR 9 

j 







* 



,, BYTE 3 

S 001A08 

44 







DC 

X *44* 

,, PRINT ERR 

| 001A09 

07 







DC 

X • 07 • 

,, 7 CHARACTERS 

J ' 00*1 AO A 

F825 






DC 

AL2(ERRXX-BASE+REG) 

,, ADDRESS OF MESSAGE 

j 001A0C 

47 

FO 

F 

A70 



* . 

BC 

UNC,LGOUT 

GO SEE IF WANT LOG OUT 

! 

001A10 

91 

FF 

F 

598 



* 

PBDR70 

TM 

SCPDAT+28 tX *FF 1 

BR IF GOT PARITY WITH CE FOR DAT 00 

001A14 

47 

10 

F 

A48 




BC 

ALL *PBDR72 

, , 

i 001A18 

05 

07 

F 

590 

F 

5C2 


CLC 

SCPDAT+20C8)*SCPDAT+70 BR IF GOT PARITY WITH CE FOR ALL 

1 ' 







♦ 



,, OTHER BIT SETS 

1 001A1E 

47 

80 

F 

A3E 




BC 

EQ* PBDR71 

, , 

J 001A22 

D5 

07 

F 

590 

F 

5AE 


CLC 

SCPDAT+20(8) *SCPDAT+50 SEE IF GOT PARITY WITH CE ANYWHERE 

1 001A28 

47 

60 

F 

A66 




BC 

UNEQfPBDR73 

GR IF YES 

j 001A2C 

91 

FF 

F 

599 




TM 

SCPDAT+29 ,X'FF 8 

BR IF GOT PARITY WITH CE FOR DAT FF 

001A30 

47 

10 

F 

A66 




BC 

ALL tPBDR73 

,, 

001A34 

OA 

00 






SVC 

X*DO 1 

PRINT -NO ERRORS DETECTED- 

j 001A36 

84 







DC 

X * 84 * 

» * 

j 001A37 

12 







DC 

X * 12 • 

,, 18 CHARACTERS 

001A38 

FB37 






DC 

AL2(NERDET—BASE+REG) 

,, ADDRESS OF MESSAGE 

| 001A3A 

47 

FO 

F 

A70 




BC 

UNC,LGOUT 

GO SEE IF WANT LOG OUT 

001A3E 

OA 

DO 





PBDR71 

SVC 

X •DO* 

ERROR 068 - PRINT BUFFER DATA REG 

| 







* 



,, PARITY BIT ALWAYS ACTIVE 

| 001A40 

44 







DC 

X *44 1 

t» 

001A41 

07 







DC 

X * 07 * 

,, 7 CHARACTERS 

I 001A42 

FBC7 






OC 

AL2(ERR068-BASE+REG) 

,, ADDRESS OF MESSAGE 

j 001A44 

47 

FO 

F 

A70 




BC 

UNC,LGOUT 

GO SEE IF WANT LOG OUT 

J 001A48 

D5 

07 

F 

590 

F 

5C2 

PBDR72 

CLC 

SCPDAT+20C8),SCPDAT+70 

> BR IF GOT PARITY WITH CE FOR ALL 

[• 







* 



,, OTHER BIT SETS 

\ 001A4E 

47 

80 

F 

A66 




BC 

EQ,PBDR73 

,» 

001A52 

D5 

07 

F 

590 

F 

5AE 


CLC 

SCPDAT+20IS),SCPDAT*5C 

1 BR IF GOT PARITY WITH CE FOR ANY 








* 



,, OTHER BITS 

| 001A58 

47 

60 

F 

A66 




BC 

UNEQ,PBDR73 

, * 

001A5C 

OA 

DO 






SVC 

X *D0 • 

ERROR 069 - PRINT BUFFER DATA REG 

k 







* ■ 



,, PARITY BIT NEVER ACTIVE 

001A5E 

44 







DC 

X *44 * 

f * 

j 001A5F 

07 







DC 

X * 07* 

,, 7 CHARACTERS 

j 001A60 

FBCE 






DC 

AL2{ERR069-BASE+REG) 

,, ADDRESS OF MESSAGE 

1 001A62 

47 

FO 

F 

A70 




BC 

UNC,LGOUT 

GO SEE IF WANT LOGOUT 

* 001A66 

OA 

DO 





PB DR-73 

SVC 

X *00* 

ERROR 070 - FALSE PRINT BUFFER DATA 








* 



,, DATA REG PARITY ERRORS 

001A68 

44 







DC 

X '44 • 


j 001A69 

07 







DC 

X'07* 

,, 7 CHARACTERS 

001A6A 

FBD5 






DC 

AL2(ERR070-BASE+REG) 

,, ADDRESS OF MESSAGE 

1 001A6C 

47 

FO 

F 

A70 




BC 

UNC,LGOUT 

GO SEE IF WANT LOG OUT 


*********************************************************************** 
* LOG OUT ROUTINE * 

*********************************************************************** 


001A70 

91 20 

F 004 

LGOUT 

TM 

SN$W,X'20* 

BR IF SEC SS 02 IS 0 - 00 NOT WANT 




* 



,, LOG OUT 

001A74 

47 80 

F AD2 


BC ’ 

NON£,LGOUTE 

tt 

001A78 

41 10 

F 786 


LA 

R1,DAT30 

INITIALIZE 

001A7C 

41 20 

F 7E0 


LA 

R2 »DATFF 

t * 

001A80 

D2 09 

F 77C 1 000 

LGOUTA 

MVC 

DATWK(IO) ,0U1) 

MOVE DATA 

001A86 

OA DO 



SVC 

X *DD ' 

CONVERT DATA TO PRINTABLE 

001A88 

0009 



OC 

AL2(9) 

,» CONVERT 9 BYTES 


OATE 

16JUN65 

15JUL65 

15MAR66 

15N0V66 

ID F80D-3 

EC 

124263 

124265 

125632 

125655 

PAGE 3 


lu ,)- 0 


ccccccccccoccoocc 


IBM MAINTENANCE DIAGNOSTIC PROGRAM 


P/N 

840225 






PAGE 

3A 

F80C 

2821 SCAN, 1403 1 

UNIVERSAL 

CHARACTER SET 



F80D3 

PRINT BUFFER DATA 

REGISTER 

ROUTINE OVERLAY 3 


; 

001A8A 

077C 


DC 

AL2 ( DATWK-SECNG) 

,, HEX DATA ADDRESS 


001A8C 

057C 


DC 

AL2 ( SCPDAT-SECNOI 

, , PRINTABLE DATA ADDRESS 


001A8E 

41 30 F 57C 

- 

LA 

R3, SCPDAT 

INITIALIZE 


0G1A92 

41 40 F 590 


LA 

R4,SCPDAT+20 

,, 


001A96 

41 50 F 5E0 


LA 

R5,SCPDAT+100 

, , 


001A9A 

92 40 F 560 


MVI 

SCPDAT+100,X *40 * 

SET UP PRINT FIELD 


001A9E 

D2 30 F 5E1 F 

5E0 

MVC 

SCPDAT*l0i«49S,SCPDAT‘H00 ,, 


001AA4 

D2 01 5 000 3 

000 

LGQUTB MVC 

0(2 »R5),Q(R3) 

9 t 


001AAA 

15 34 


CLR 

R3*R4 

BR IF END 


001AAC 

47 80 F ABC 


BC 

EQ,LGOUTC 

-4 9 


001ABO 

41 50 5 003 


LA 

R5,3(R0,R5) 

UPDATE ADDRESSES 


001AB4 

41 30 3 002 


LA 

R3»2(R0,R3) 

t * 


001AB8 

47 FO F AA4 


BC 

UNC,LGQUTB 

CONTINUE 


001ABC 

OA DO 


LGOUTC SVC 

X'DO' 

LOG OUT QF ACCUMULATED DATA 


001ABE 

80 


DC 

X'80' 

9 9 


001ABF 

1A 


DC 

X * 1A * 

,, 26 CHARACTERS 


001AC0 

F5E0 


DC 

AL2(PRT LOG- BA Sg* REG ) 

,, ADDRESS OF MESSAGE 

* 

0G1AC2 

15 12 


CLR 

R1,R2 4 .> 

SEE IF END OF LOG OUT 


001AC4 

47 80 F ADO 


BC 

EQ,LGOUTD 

BR IF YES 


001AC8 

41 10 1 OOA 


LA 

R1,10(R0,R1I 

UPDATA ADDRESSES 


001ACC 

47 FO F A80 


BC 

UNC,LGOUTA 

CONTINUE 


001 ADO 

OA DA 


LGOUTD SVC 

X * DA * 

HALT ♦ WAIT FOR ACTION 


001AD2 

91 40 F 004 


LGOUTE TM 

SNSW,X'40* 

BR IF SEC SS 01 IS 0 - DO NOT 1 

WANT 




*■ • 


,, UTILITY ROUTINE 


001AD6 

47 80 F ADE 


BC 

NONE,LGOUTF 

tt 


001ADA 

45 80 F 678 


BAL 

R8,SCPROO 

BR TO UTILITY ROUTINE 


001ADE 

91 20 E 1A3 


LGOUTF TM 

419 ( R14),X *20 • 

IS LOOP ON SEC SS ON 


001AE2 

47 10 F AEA 


BC 

ALL,LGOUTG 

BR IF YES 


001AE6 

96 40 F 751 


01 

SCHNUM,X *40 • 

SET UP TO BYPASS ALL REMAINING 

OVLYS 

001AEA 

OA D6 


LGOUTG SVC 

X 'D6 * 

ROUTINE EXIT 





*********************************************************************** 




♦ CCW,S 

USED BY ROUTINE 03 


♦ 




*********************************************************************** 

001AFO 

05 00157C 2000 

0002 

WRCCW CCW 

X * 05',SCPDAT »X'20 * ,2 

DIAGNOSTIC WRITE - SILI ON - 

• l 

001AF8 

02 00157C "2000 

0001 

RDCCW CCW 

X'02*»SCPDAT,X'20 8 ,1 

DIAGNOSTIC DATA READ - SILI ON 

- 

001BOO 

06 00157C 2000 

0002 

CKRCCW CCW 

X'06*,SCPDAT,X'20»,2 

DIAGNOSTIC CHECK READ - SILI ON - 




*********************************************************************** 




♦ CONSTANTS FOR ROUTINE 03 - 

NO BOUNDARY 

♦ ! 




*********************************************************************** 

001B08 

F2F8 F2F140E2C3C1D5 

TITLE DC 

C'2821 SCAN/1403 U' 


t 

} 

001BU 

61F1F4F0F340E4 






001B18 

C3E26B40D7D9C9D5E3 

DC 

CCS, PRINT BUFFER* 


j 

001B21 

40C2E4C6C6C5D9 





f 

001B28 

40C4C1E3C140D9C5C7 

DC 

C' DATA REG FLT• 


1 

0Q1B31 

40C6D3E3 





i- 

001B35 

OOFF 


P8DRK1 DC 

X * OOFF• 



001B37 

* D5D640C5D9D9D6D9E2 

NEROET DC 

C 'NO ERRORS DETECT' 



001B40 

40C4C5E3C5C3E3 





1 

001B47 

C5C4 


DC 

C *ED' 


j 




*********************************************************************** 




* EQUATES 


* 1 




*********************************************************************** 

♦ 


* GENERAL REGISTER EQUATES 


* 


000000 

RO 

EQU 

0 

000001 

R1 

EQU 

1 

000002 

R2 

EQU 

2 

000003 

R3 

EQU 

3 

000004 

R4 

EQU 

4 

000005 

R5 

EQU 

5 

000006 

R6 

EQU 

6 

000007 

R7 

EQU 

7 

000008 

R8 

EQU 

8 

000009 

R9 

EQU 

9 

OOOOOA 

RIO 

.EQU 

10 

000008 

Rll 

EQU 

11 

OOOOOC 

R12 

EQU 

12 


DATE 16JUN65 i5JUL65 15MAR66 I5N0V66 ID F80D-3 
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j 

j 

J. 

00000D 

OOOOOE 

OOOOOF 

R13 

R14 

R15 

♦ 

♦ 

EQU 13 

EQU 14 

EQU 15 

CONDITION CODE EQUATES 



000008 

NONE 

EQU 

8 

ALL OFF 0 


000005 

ANY 

EQU 

5 

ANY ON 13 


000001 

ALL 

EQU 

1 

ALL ON 3 


000004 

SOME 

EQU 

4 

MIXED 1 


000009 

NMIXED 

EQU 

9 

NOT MIXED 03, 


000008 

EQ 

EQU 

8 

EQUAL 0 


000006 

UNEQ 

EQU 

6 

NOT EQUAL 1 2 


000004 

LO 

EQU 

4 

LOW 1 


000002 

HI 

EQU 

2 

HIGH 2 


000008 

2 

EQU 

8 

ZERO 0 


000002 

POS 

EQU 

2 

GREATER ZERO 2 


000008 

CCO 

EQU 

8 

AVAILABLE 0 


000004 

CC1 

EQU 

4 

CSW STORED 1 


000002 

CC2 

EQU 

2 

BUSY 2 


OOOOOF 

UNC 

EQU 

15 

UNCONDITIONAL 0123 


OOOOOD 

NOTBSY 

EQU 

13 

NOT BUSY 013 


000007 

NZ 

EQU 

7 

NOT CC 0 123 


000004 

NEG 

EQU 

4 

NOT ZERO -AND- 1 


OOOOOC 

ZNEG 

EQU 

12 

MIXED OR NONE 0 1 


000008 

CSWNST 

♦ 

• * 

EQU 11 

GENERAL EQUATES 

CSW NOT STORED 0 23 

! 

000040 

HCSW 

EQU 

64 

HARDWARE CSW LOCATION 

| 

000048 

HCAW 

EQU 

72 

HARDWARE CAW LOCATION 


000078 

HION 

EQU 

120 

HARDWARE I/O NEW PSW LOCATION 

5 

001118 

00177D 

CSWSAV 

* 

* 

* 

STAT1 

EQU SI0VR3 

EQUATES FOR ROUTINE 03 

EQU DATKK+1 

EXCLUSIVELY 


00177E 

STAT2 

EQU 

DATWK+2 



00177F 

001780 

WRSNS 

WCKRD 

EQU 

EQU 

DATWK+3 

DATWK+4 


i 

| 

001781 

001782 

DARD 

STATRD 

EQU 

EQU 

DATWK+5 

DATHK+6 


1 

001783 

RDSNS 

EQU 

DATWK+7 


j 

001784 

RCKRD 

EQU 

DATWK+8 


i ■ 

001785 

STSW 

EQU 

DATHK+9 



00177C 

DA HR 

EQU 

DATWK 



0015E0 

PRTLOG 

EQU 

SCPDAT+100 




**++*******+*+*************+++++**+***++*****+****+*+***++++++++*+*++++ 



* 

ERROR 

DEFINITION FOR ROUTINE 03 * 



***+**+**++++****+****+*++++++++++++*******+********+***+**+****++*++++ 

001B49 

\ 

[ 

C509D940F0F5F0 

ERR050 

* 

* 

DC 

C'ERR 050* 

NO PRINT BUFFER DATA REG BITS CAN 
t» BE TURNED ON - PRINT BUFFER 
,, DATA REG RESET MAY BE ON SOLID 

001850 

t 

i 

C5D9D940F0F5F1 

ERR051 

* 

* 

DC 

C*ERR 051• 

ALL PRINT BUFFER DATA REG BITS ARE 
v, ON.SOLID. - NOT GETTING PRINT 
,, BUFFER DATA REG RESET 

I 001B57 

« 

C5D9D940F0F5F2 

ERR052 

* 

DC 

C•ERR 052' 

PRINT BUFFER DATA REG BIT 0 NEVER 
yy ACTIVE 

j 001B5E 

C5D9D940F0F5F3 

ERR053 

* 

DC 

C'ERR 053* ; 

PRINT BUFFER DATA REG BIT *0 ALWAYS 
yy ACTIVE 

j 001B65 

C5D9D940F0F5F4 

ERR054 

* 

DC 

C'ERR 054 • 

PRINT BUFFER DATA REG BIT 1 NEVER 
yy ACTIVE 

j 001B6C 

1 ■ 

C5D9D940F0F5F5 

ERR055 

* 

DC 

C'ERR 055• 

PRINT BUFFER DATA REG BIT 1 ALWAYS 
yy ACTIVE 

i 001B73 

i 

C5D9D940F0F5F6 

ERR056 

* 

DC 

C'ERR 056 8 . 

PRINT BUFFER DATA REG BIT 2 NEVER 
yy ACTIVE 

\ 001B7A 

C5D9D940F0F5F7 

ERR057 

♦ 

DC 

C'ERR 057' \ 

PRINT BUFFER DATA REG BIT 2 ALWAYS 
•• ACTIVE 

j DATE 

16JUN65 15JUL65 

15MAR66 15N0V66 


ID F80D-3 

! , EC 

124263 124265 

125632 125655 
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001B81 

C5D9D940F0F5F8 

ERR058 

* 

DC 

C'ERR 

058* 

PRINT BUFFER 
y, ACTIVE 

DATA 

REG 

BIT 3 

NEVER 

001B88 

C5D9D940F0F5F9• 

ERR059 

* 

DC 

C'ERR 

059' 

PRINT BUFFER 
yy ACTIVE 

DATA 

REG 

BIT 3 

ALWAYS 

001B8F 

C5D9D940F0F6F0 

ERR060 

* 

DC 

C'ERR 

060' 

PRINT BUFFER 
yy ACTIVE 

DATA 

REG 

BIT 4 

NEVER 

.001896 

C5D9D940F0F6F1 

ERR061 

♦ 

DC 

C'ERR 

061' 

PRINT BUFFER 
yy ACTIVE 

DATA 

REG 

BIT 4 

ALWAYS 

001B9D 

C5D9D940F0F6F2 

ERR062 

♦ 

DC 

C'ERR 

062' 

PRINT BUFFER 
y * ACTIVE 

DATA 

REG 

BIT 5 

NEVER 

001BA4 

C5D9D940F0F6F3 

ERR063 

♦ 

DC 

C'ERR 

063' 

PRINT BUFFER 
yy ACTIVE 

DATA 

REG 

BIT 5 

ALWAYS 

OOlBAB 

° C509D940F0F6F4 

ERR064 

♦ 

DC 

C'ERR 

064 • 

PRINT BUFFER 
yy ACTIVE 

DATA 

REG 

BIT 6 

NEVER 

001BB2 

C5D9D940F0F6F5 

ERR065 
* ' 

DC 

C'ERR 

065' 

PRINT BUFFER 
yy ACTIVE 

DATA 

REG 

BIT 6 

ALWAYS 

001BB9 

C5D9D940F0F6F6 

ERR066 

* 

DC 

C'ERR 

066' 

PRINT BUFFER 
yy ACTIVE 

DATA 

REG 

BIT 7 

NEVER j 

001BC0 

C5D9D940F0F6F7 

ERR067 

♦ 

DC 

C'ERR 

067' 

PRINT BUFFER 
yy ACTIVE 

DATA 

REG 

BIT 7 

ALWAYS 

001BC7 

C5D9D940F0F6F8 

ERR068 

♦ 

DC 

C'ERR 

068' 

PRINT BUFFER DATA 
yy ALWAYS ACTIVE 

REG 

PARITY BIT j 

001BCE 

C5D9D940F0F6F9 

ERR069 

* 

DC 

C'ERR 

069' 

PRINT BUFFER DATA 
yy NEVER ACTIVE 

REG 

PARITY BIT t 

} 

001BD5 

C5D9D940F0F7F0 

ERR070 

* 

DC 

C'ERR 

070* 

FALSE PRINT BUFFER DATA REG 
«t ERRORS 

PARITY | 

r 


001000 BASE EQU SECNO 

00F000 * REG EQU X'FOOO' 

END 


DATE 

16JUN65 

15JUL65 

L5MAR66 

15N0V66 

ID F80D-3 j 

EC 

124263 

124265 

125632 

125655 . ~ 
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POST ASSEMBLY DATA. 


196C# 19A0, 19F6 

19BE 


REFERENCES TO DEFINED SYMBOLS. 


i i 

8 

2 








i. i 

8 

EQ 

1838# 

18FA, 

190E, 

19E6# 

1A1E # 

1A4E , 

1AAC 

1 



1AC4 







! i 

2 

HI 








1 i 

4 

LO 








* ■ • i 

7 

NZ 








; i 

0 

RO 

1876# 

187A# 

18A2, 

18A6# 

18D4# 

18E2# 

18E6 

! 



195E# 

1962# 

19C8# 

1908# 

19EA, 

19EE# 

1 ABO 

1 



1AB4# 

1AC8 






! l 

1 

R1 

1858# 

1860# 

18CE# 

18D4# 

18D4# 

18D8# 

1924 

j 



192C# 

195E# 

195E# 

1966, 

19B6# 

19C2# 

19E4 




19EA, 

19EA , 

1A78, 

1A80# 

1AC2# 

1AC8 , 

1AC8 

1 l 

2 

R2 

185C# 

18D8# 

1966, 

196C# 

19BE# 

1.9E4, 

1A7C 

j 



1AC2 







l 

3 

R3 

1928, 

1936# 

1942, 

1946# 

195A, 

1962, 

1962 




1A8E# 

1AA4, 

1AAA# 

1AB4, 

1AB4 



l 

4 

R4 

1932# 

193A, 

19CC# 

19D0, 

19DC# 

1A92, 

1AAA 

l 

5 

R5 

19BA# 

19C8# 

19EE, 

19EE# 

1A96# 

1AA4# 

1AB0 




1AB0 







l 

6 

R6 








l 

7 

R7 








l 

8. 

R8 

1854, 

1898# 

18C4# 

1912, 

1ADA 



l 

9 

R9 

19C8, 

19D8, 

19D8, 

19FA 




l 

1 

ALL 

19A4, 

19E0# 

1A14# 

1A30# 

1AE2 



l 

5 

ANY 








l 

1048 

CAW 

187A# 

18A6# 

18E6 





l 

8 

CCO 








l 

4 

CC1 








l 

2 

CC2 








l 

1040 

CSW 








i 

4 

NEG 








l 

2 

POS 








l 

A 

RIO 








i 

8 

R11 

1882# 

18AE, 

18F0# 

1904 




l 

C 

a 12 

187E 







i 

D 

R*13 








i 

E 

R14 

1ADE 







l 

F 

R15 








l 

FOOO 

REG 

184A, 

191E, 

199A, 

19B0, 

1A0A, 

1A38# 

1A42 




1A60, 

1A6A # 

1AC0 





i 

1228 

SIO 

1882, 

18AE, 

18F0, 

1904 




i 

F 

UNC 

18DE, 

1912# 

1920# 

1970, 

199C, 

19A8, 

19B2 




19F2, 

1A0C# 

1A3A# 

lA44 r 

1A62, 

1A6C# 

. 1A88 




1ACC 







l 

1000 

BASE 

184A# 

191E # 

199A # 

19B0, 

1A0A# 

1A38, 

1A42 

\ 



1A60, 

1A6A , 

1AC0 





i 10 

1781 

DARO 

1882# 

1974 






1 10 

177C 

DAWR 

1866# 

1932, 

19CC 





■ f l 

48 

HCAW 








S i 

40 

HCSW 








! i 

78 

HI ON 








1 16 

17EA 

MSG1 

1914# 

191E 






l 

8 

NONE 

1842, 

1850, 

193E, 

1946, 

1956# 

19D4 # 

1A74 


■ 


1AD6 







■■ \ ■ i 

1004 

SNSW 

183E# 

184C, 

1A70# 

1A02 




! ■ l 

4 

SOME 








1 10 

1785 

STSW 








\ l 

6 

UNEQ 

18DA# 

1968# 

1992, 

1A28 # 

1A58 



• | ■ 4 

1770 

WKAR 

19FA, 

1A02 






\ 1 

C 

ZNEG 








■ 1 

11A4 

CSWAG 

1888 








SENSE 
STAT1 
STAT2 
TITLE 
UAPRT 
UNIT1 
WCKRD 
WRCCW 
WRSNS 
CAWKEY 
CKRCCW 
CSWNST 
CSWSAV 
ERR050 
ERR051 
ERR052 
ERR053 
ERR054 
ERR055 
ERR056 
ERR057 
ERR058 
ERR059 
ERR060 
ERR061 
ERR062 
ERR063 
ERR064 
ERR065 
ERR066 
ERR067 
ERR068 
ERR069 
ERR070 
LGOUTA 
LGOUTB 
LGOUTC 
LGOUTD 
LGQUTE 
LGOUTF 
LGOUTG 
NERDET 
NMIXED 
» N0T3SY 
PBDROO 


1924# 

1A7C 

19B6, 

1A78 




18CE # 

192C# 

19C2 # 

1A80# 

1A8A# 

1B49 

1B49# 

1B49 

1A0A 

1B49# 

1B49, 

1B49, 

1B49, 

1649 

19B2# 

1A0C# 

1A3A, 

1A44, 

1A62, 

1A6C 

1000# 

1000# 

1000, 

1000, 

1000# 

1000 

1000# 

1000, 

1000, 

1000, 

1000, 

1000 

1000, 
1A8C # 

1000, 

1BDC 

1000, 

1018, 

1A02# 

1A04 


189C# 194A 

1876 

1892 


16JUN65 15JUL65 

124263 124265 


15MAR66 15N0V66 

125632 125655 


ID F80D-3 I 
PAGE 5 I 
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15MAR66 15N0V66 
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DATE 

EC 


I83E PBDR01 
184C PBDR02 
1858 PBDR10 
1860 P8DR11 
18E2 PBDR20 
1914 PBDR21 
1924 PBDR30 
192C PBDR31 
1946 PBDR32 
195E PBDR33 
1974 PBDR37 
1978 PBDR40 


1838 

1842 

1850 

18DA 

1898, 

18FA, 

18DE 

1968 

193E 

194E, 

193A, 

1970 


18C4, 
190E “ 


1956 

19D0 


1920 


NO ERROR DETECTED IN ABOVE ASSEMBLY 


16JUN65 

124263 


15JUL65 

124265 


15MAR66 15N0V66 

125632 125655 
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80D3 TITLE F80D3 UNIV* CHAR* BUFFER DATA REGISTER ROUTINE OVERLAY 4 
XF80D3 START 4096 
001000 USING *,15 

*********************************************************************** 
* * 

♦ ROUTINE OVERLAY 4 4 

* * 

+***+++****+********+***+++***+*+*+++++**+*+++++++++++++++ 11 *+++*+++**++ 
* RESIDENT LABELS ADDRESSED BY OVERLAYS 4 

*********************************************************************** 


4 

19A0 

PBDR50 

1992 










001000 

SECNO 

EQU 

* 

2 

19AC 

PBDR51 

19A4 










001004 

SNSW 

EQU 

SECNO+4 

4 

19B6 

PBDR60 

19A8 










001040 

csw 

EQU 

SECNO+64 

6 

19C2 

PB0R61 

19F2 










001048 

CAW 

EQU 

SECNO+72 

4 

19F6 

PBDR62 

19DC 










0010E0 

UNIT1 

EQU 

SECNO+224 

4 

19FA 

PBDR63 

1904, 

19E0 









0010E2 

U1ADDR 

EQU , 

SECN0+226 

4 

1A10 

PBDR70 

19E6 







■ 



001118 

SI0VR3 

EQU 

SECN0+280 

2 

1A3E 

PBDR71 

1A1E 










001108 

SI0VR4 

EQU 

SECN0+264 

6 

1A48 

PBDR72 

1A14 










001122 

SIOSWS 

EQU 

SECN0+290 

2 

1A66 

PBDR73 

1A28, 

1A3Q* 

1A4E, 

1A58 







00119F 

STATSV 

EQU 

SECNO+415 

2 

1B35 

PBDRK1 

18EA, 

18F4, 

18FE , 

1908 







0011A4 

CSWAG 

EQU 

SECN0+420 

1 

15E0 

PRTLOG 

1AC0 










001121 

CAWKEY 

EQU 

SECNO+289 

1 

1751 

SCHNUM 

1834, 

1AE6 









001120 

SENSE 

EQU 

SECNO+288 

1 

157C 

SCPDAT 

1866, 

186C, 

186C, 

189C, 

18AA , 

18B2, 

18C8 




00157C 

SCPDAT 

EQU 

SECN0+1404 




18EA, 

18F4, 

18FE , 

1908, 

1928, 

1978, 

197C 




001678 

SCPROO 

EQU 

SECNO+1656 




197C, 

1982, 

1986, 

1986, 

198C , 

198C, 

1A10 




001228 

SIO 

EQU 

SECNO+552 




1A18, 

1A18, 

1A22, 

1A22 , 

1A2C , 

1A48, 

1A48 




001751 

SCHNUM 

EQU 

SECNO+1873 




1A52, 

1A52, 

1A8C, 

1A8E, 

1A92, 

1A96, 

1A9A 




001753 

UAPRT 

EQU 

SECNO+1875 




1A9E, 

1A9E , 

1AF0, 

1AF8, 

1B00, 

1B49 






*********************************************************************** 

1 

1678 

SCPROO 

1854, 

1ADA 









001015 


ORG 

SECNQ+21 

1 

1122 

SIOSWS 

1872 








001015 

001898 



DC 

AL3(RTN04) INITIAL PSW STARTING ADDR FOR RTN 04 

1 

1118 

SI0VR3 

1B49 










00176C 


ORG 

SECNQ+1900 

1 

1108 

SI0VR4 












*********************************************************************** 

10 

1782 

STATRD 

18B8 











4 

VARIABLES FOR ROUTINE 04 - DOUBLE WORD BOUNDARY 4 

1 

119F 

STATSV 

188C 










* 

*********************************************************************** 

l 

10E2 

U1ADDR 

187E 








00176C 




CNOP 

0,8 ALIGN ON DOUBLE WORD BOUNDARY 

1 

1000 

XF80D3 









00176C 

07 00 


BCR 

0,0 


00176E 

001770 

001774 

001778 


07 00 
00000000 
00000000 
00000000 


WKAR 


BCR 

DC 


0,0 

3F *00* 


*********************************************************************** 
4 VARIABLES FOR ROUTINE 04 - NO BOUNDARY 4 

*********************************************************************** 


00177C 

D5D640C4C1E3C140E3 

MSG1 

DC 

C *N0 DATA 

TRANSFER' 

001785 

D9C1D5E2C6C5D9 





00178C 

09C5C440C2E840C4C9 


DC 

C 'RED BY DIAGNOSTI' 

001795 

C1C7D5D6E2E3C9 





00179C 

C340C3C8C5C3D240D9 


DC 

C’C CHECK 

READ F0R> 

0017A5 

C5C1C440C6D6D9 





0017AC 

40C4C5E5C9C3C540E7 


DC 

C' DEVICE 

XXX' 

0017B5 

E7E7 





0017B7 

000000000000000000 

DATWK 

DC 

XLIO'OO* 


0017C0 

00 





0017C1 

80 

DAT80 

DC 

X •80* 


0017C2 

000000000000000000 


DC 

XL9'00' 


0017CB 

20 

DAT20 

DC 

X'20' 


0017CC 

000000000000000000 


DC 

XL9 *00* 


0017D5 

10 

DAT10 

DC 

X'10' 


0017D6 

000000000000000000 


DC 

XL9*00* 


0017DF 

08 

DAT08 

DC 

X , 08 # 


0017E0 

000000000000000000 


DC 

XL9»00» 


0017E9 

04 

DAT04 

DC 

X *04 1 

! . 

0017EA 

000000000000000000 


DC 

XL9 *00* 


0017F3, 

02 

DAT02 

DC 

X *02* 

•1. 

0017F4 

000000000000000000 


DC 

XL9*00* 
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REGISTER 
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Q017FD 

01 

DAT01 

DC 

X*01* 

0017FE 

000000000000000000 


DC 

XL9 *00 * 

001807 

00 

DATOO 

DC 

X*00* 

001808 

000000000000000000 


DC 

XL9•00• 

001811 

40 

DAT40 

DC 

X *40 • 

001812 

000000000000000000 


DC 

XL9*00® 

00181B 

FF 

DATFF 

DC 

X *FF • 

00181C 

000000000000000000 


DC 

XL9*00* 

001825 

00 

CDG 

DC 

X*00* 

001826 

000000000000000000 

PLCB 

DC 

XL10*00* 

00182F 

00 




001830 

000000000000000000 

UCBP 

DC 

XL10* 00* 

001839 

00 




00183A 

C5D9D940F0F0F0F0 

ERRK 

DC 

C*ERR 0000* 

001842 

D6D9C9C7C9D5C1D340 

RMSG 

DC 

C 'ORIGINAL CONTENT* 

00184B 

C3D6D5E3C5D5E3 




001852 

E240D6C640E4C3E240 


OC 

C*S OF UCS BUFFER » 

001850 

C2E4C6C6C5D940 




001862 

C6D6D940D7D9C9D5E3 


DC 

C*FOR PRINTER* 

00186B 

C5D9 




00186D 

40404040C4C5E2E3D9 

RMSG1 

DC 

C* DESTROYED* R* 

001876 

D6E8C5C46B40D9 




00187D 

. C5E2E3D6D9C540E6C9 


DC 

C*ESTORE WITH PROG* 

001886 

E3C840D7D9D6C7 




00188D 

09C1D440C6F8F3F7 


DC 

C ‘RAM F837• 


fe^*^**************************************************************^** 
* ROUTINE 04 PREFIX ♦ 

ft********************************************************************** 


001896 





CNOP 

0,4 

FULL WORD ALIGNMENT 


001896 

07 00 



BCR 

0,0 



001898 

04 




RTN04 DC 

XL1* 04 * 

ROUTINE NUMBER 


001899 

00 




DC 

XL1*00* 

FLAGS 


00189A 

FFFF 



DC 

X'FFFF • 

ADDRESS OF NEXT ROUTINE 


00189C 

95 

84 

F 

751 

UBDROO CLI 

SCHNUM,X *84' 

SEE IF SEARCHING FOR ROUTINE 

04 

0018 AO 

47 

80 

F 

8 A8 

BC 

EQ» U3DR01 

RUN ROUTINE 04 IF YES 


0018A4 

47 

FO 

F 

CBA 

BC 

UNC,LGQUTG 

GO PRINT MESSAGE ROUTINE EXIT 

0018A8 

91 

03 

F 

004 

UBDR01 TM 

SNSWfX*03• 

BR IF SEC SS 06 IS 1 - PRINT 

TITLE 

0018AC 

47 

80 

F 

8 B6 

BC 

NONE,UBDR02 

BR IF NO 


0018B0 

OA 

DO 



SVC 

X*DO* 

PRINT TITLE 


0018B2 

80 




DC 

X • 80 • 

,, NORMAL OUTPUT 


0018B3 

24 




DC 

X*24* 

t, 36 CHARACTERS 


0018B4 

FCFO 



DC 

AL2(TITLE-BASE+REG) 

,, ADDRESS OF MESSAGE 


0018B6 

91 

40 

F 

004 

UBDR02 TM 

SNSVI, X *40 • 

SEE IF SEC SS 01 IS 1 - WANT 

UTILITY 

0018BA 

47 

80 

F 

8C2 

BC 

NONE,UBDR10 

BR IF NO 


0018BE 

45 

80 

F 

678 

BAL 

R8» SCPROO 

BR TO UTILITY ROUTINE 







DATA 

COLLECTION ROUTINE 



0018C2 

41 

10 

F 

7C1 

UBDR10 LA 

R1,DAT80 

INITIALIZE ROUTINE 


0018C6 

41 

90 

F 

81B 

LA 

R9,DATFF 

* t 


0018CA 

41 

20 

F 

811 

LA 

R2.DAT40 

n 


0018CE 

41 

50 

F 

807 

LA 

R5,DATOO 

* » 


0018D2 

02 

09 

F 

7B7 1 000 

UBDR11 MVC 

DATWK(IO),0(R1) 

MOVE DATA TO WORK AREA 


0018D8 

15 

12 



CLR 

R1,R2 

SEE IF WANT TO WRITE BLANK 


0018DA 

47 

60 

F 

910 

BC 

UNEQ,UBDR15 

BR IF NO 


0018DE 

41 

30 

F 

7C1 

LA 

R3,DAT80 

DETERMINE CHAR TO USE INSTEAD OF 40 

0018E2 

41 

40 

F 

7FD 

LA 

R4,DAT01 



0018E6 

92 

40 

F 

7B7 

MVI 

OATWX,X *40 * 



0018EA 

91 

04 

3 

008 

UBDR12 TM 

8(R3) ,X*04* 



0018EE 

47 

10 

F 

90A 

BC 

ALL ,UBDR14 

9 9 


0018F2 

15 

34 



CLR 

R3,R4 



0018F4 

47 

80 

F 

900 

BC 

EQ,UBDRI3 



0018F8 

41 

30 

3 

OOA 

LA 

R3,10<R0,R3) 



0018FC 

47 

FO 

F 

8 EA 

BC 

UNC,UBDR12 



001900 

D6 

00 

F 

7B7 F SOB 

UBDR13 OC 

DATWK(l),DAT00+4 

9 9 


001906 

47 

FO 

F 

910 

BC 

UNC,UBDR15 

9 9 


00190A 

D6 

00 

F 

7B7 3 000 

UBDR14 OC 

DATWK(l),0(R3) 
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001AOA 

41 

00 

F 

CE8 



LA 

RO,DCRCCW 

LOAD DIAG CK RD CCW ADDR IN CAW 

001A0E 

50 

00 

F 

048 



ST 

RO,CAW 

9 9 

001A12 

48 

CO 

F 

0E2 



LH 

R12»U1ADDR 

LOAD PRNT I/O ADDR IN GR 12 

00XA16 

45 

BO 

F 

228 



BAL 

R11,SI 0 

GO PERFORM DIAG CHECK READ 

001A1A 

05 

01 

F 

57C 

F 

D14 

CLC 

SCPDAT(2)tPBDRKl 

SEE IF ANY DATA DATA WAS TRANSFERRED 

001A20 

47 

80 

F 

A26 



BC 

EQ,DCKRD1 

BR IF NO 

001A24 

07 

F8 





BCR 

UNC,R8 

RETURN 

001A26 

D2 

02 

F 

7B4 

F 

753 

DCKR01 MVC 

MSGl+56(3),UAPRT 

SET PRINTER ADDR IN OUTPUT MSG 

001A2C 

OA 

DO 





SVC 

• X*DO' 

NO DATA TRANSFERRED BY DIAG CK READ 

001A2E 

44 






DC 

X '44* 

9 9 

001A2F 

31 






DC 

X *31 • 

99 49 CHARACTERS 

001A30 

F77C 





DC 

AL2(MSG1-BASE+REG) 

,, ADDRESS OF MESSAGE 

001A32 

47 

FO 

F 

9FA 



BC 

4* 

UNC,DCKRD 

GO TRY DIAG CK READ AGAIN 








♦ DATA 

ANALYSIS ROUTINE 


001A36 

41 

10 

F 

7C1 



UBDR20 LA 

R1, DAT80 

INITIALIZE 

001A3A 

41 

20 

F 

81B 



LA 

R2,DATFF 

9 9 

001A3E 

41 

30 

F 

826 



LA 

R3,PLCB 

9 9 

001A42 

41 

40 

F 

830 



LA 

R4,UCBP 

9 9 

001A46 

D2 

09 

F 

7B7 

1 

000 

UBDR21 MVC 

DATWK(IO),0(R1) 

MOVE DATA 

001A4C 

92 

00 

3 

000 



MVI 

0(R3),X«00« 

SET SW SAYING NO PLC 

001A50 

91 

04 

F 

7BF 



TM 

PWCR,X*04• 

SEE IF GOT PLC 

001A54 

47 

80 

F 

A5C 



BC 

NONE,UBDR22 

BR IF NO 

001A58 

92 

FF 

3 

000 



MVI 

0(R3),X*FF* 

SET SW SAYING GOT PLC 

001A5C 

92 

00 

4 

000 



UBDR22 MVI 

0(R4),X»00* 

SET SW SAYING NO UCB PARITY 

001A60 

91 

04 

F 

7B9 



TM 

UCBSNS »X*04 * 

SEE IF GOT UCB PARITY 

001A64 

47 

80 

F 

A6C 



BC 

NONE,UBDR23 

BR IF NO 

001A68 

92 

FF 

4 

000 



MVI 

0(R4),X *FF■ 

SET SW SAYING GOT UCB PARITY 

001A6C 

15 

12 





UBDR23 CLR 

R1,R2 

SEE IF END 

001A6E 

47 

80 

F 

A82 



BC 

EQ,UBDR30 

BR IF YES 

001A72 

41 

10 

1 

OOA 



LA 

RlflO(RO,Rl) 

UPDATE ADDRESSES 

001A76 

41 

30 

3 

001 



LA 

R3,l(R0,R3) 

9 9 

001A7A 

41 

40 

4 

001 



LA 

R4,l(R0,R4) 

9 9 

001A7E 

47 

FO 

F 

A46 



BC 

* 

UNC,UBDR21 

CONTINUE 

001A82 

05 

06 

F 

020 

F 

826 

♦ 

UBDR30 CLC 

PBDRK3I7) ,PLCB 

SEE IF GOT PLC FOR SEPARATE BITS 

001A88 

47 

60 

F 

B52 



BC 

UNEQ,UBDR40 

BR IF NO 

00LA8C 

91 

04 

F 

819 



TM 

DAT40+8 ,X *04• 

9 9 

001A90 

47 

80 

F 

B52 



BC 

NONE,UBDR40 

9 9 

001A94 

91 

FF 

F 

82D 



TM 

PLCB+7 ,X * FF• 

SEE IF GOT PLC FOR DAT 00 

001A98 

47 

10 

F 

C36 



BC 

ALL,UBDR80 

BR IF YES 

001A9C 

05 

08 

F 

830 

F 

020 

CLC 

UCBP(95,PBDRK3 

SEE IF GOT UCB PARITY FOR ALL 8ITS 

001AA2 

47 

60 

F 

ABO 



BC 

UNEQ,UBDR31 

BR IF NO 

001AA6 

OA 

DO 





SVC 

X *00 9 

ERROR 080 - FALSE UCB DATA REG PARTY 

001AA8 

41 






DC 

X *41 9 

,, PRINT ON ALTERNATE DEVICE 

001AA9 

07 






DC 

X * 07 9 

,, 7 CHARACTERS 

001AAA 

FD42 





DC 

AL2(ERR080-8ASE+REG) 

99 ADDRESS OF MESSAGE 

001AAC 

47 

FO 

F 

C40 



BC 

* 

UNC 9 LGOUT 

GO SEE IF WANT LOG OUT 

001ABO 

D5 

06 

F 

830 

F 

020 

♦ 

UBDR31 CLC 

UCBP(7),PBDRK3 

SEE IF GOT UCB PARITY FOR ALL BUT 

001AB6 

47 

60 

F 

ACE 



BC 

UNEQ*UB0R32 

99 00 + 40 - BR IF NO 

001ABA 

05 

01 

F 

837 

F 

D16 

CLC 

UCBP+712),PBDRK2 

9 9 

001AC0 

47 

60 

F 

ACE 



BC 

UNEQyUBDR32 

•• BR IF NO 

001AC4 

OA 

DO 





SVC 

X *D0 * 

ERROR 081 - UCB DATA REG PARITY 








* 


9, LATCH ON SOL 10 

001AC6 

44 






DC 

X *44 • 

9 9 

001AC7 

07 






OC 

X • 07 • 

,,7 CHARACTERS 

001AC8 

FD49 





DC 

AL2(ERR081-BASE+REG) 

99 ADDRESS OF MESSAGE 

001ACA 

47 

FO 

F 

C40 



BC 

* 

UNC,LGOUT 

GO SEE IF WANT LOG OUT 

001ACE 

05 

06 

F 

830 

F 

D16 

* 

UBDR32 CLC 

UCBPC71*PBDRK2 

SEE IF GOT UCB PARITY FOR 00 +40 

001AD4 

47 

60 

F 

AEC 



BC 

UNEQ,U8DR33 

99 ONLY - BR IF NO 

00lAD8 

05 

01 

F 

837 

F 

020 

CLC 

UCBP+7 12) ,PBDRK3 

9 9 

001ADE 

47 

60 

F 

AEC 



BC 

UNEQ,UBDR33 

99 BR IF NO 
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001AE2 

OA 

DO 




SVC 

X * D 0 • 

ERROR 082 - CAN NOT TURN ON UCB DATA 






* 



99 REG PARITY LATCH 

001AE4 

44 





DC 

X *44 • 

9 9 

001AE5 

07 





DC ' 

X*07* 

,, 7 CHARACTERS 

001AE6 

FD50 




DC 

AL2(ERR082-BASE+REG) 

,9 ADDRESS OF MESSAGE 

001AE8 

47 

FO 

F 

C40 

* 

BC 

UNC,LGOUT 

GO SEE IF WANT LOG OUT 

001AEC 

05 

08 

F 

830 F 016 

* 

UBDR33 

CLC 

UCBPC9)» PBDRK2 

SEE IF GOT ANY UCB DATA REG PARITY 






* 



ERRORS 

001AF2 

47 

60 

F 

B08 


BC 

UNEQ,U8DR34 

BR IF YES ! 

001AF6 

91 

FF 

F 

839 


TM 

UCBP+9,X*FF* 

SEE IF GOT UCB PARITY FOR DAT FF f 

001AFA 

47 

10 

F 

B48 


BC 

ALL »UBDR37 

BR IF YES 

001AFE 

OA 

DO 




SVC 

X *D0 • 

NO ERRORS DETECTED 

001B00 

84 





DC 

X*84* 

it 

001801 

10 





DC 

X*10* 

99 16 CHARACTERS 

001BO2 

FD2A 




DC 

AL2(NERDET-BASE+REG) 

9 , ADDRESS OF MESSAGE 

001B04 

47 

FO 

F 

C40 

♦ 

BC 

UNC,LGOUT 

GO SEE IF WANT LOG OUT 

001B08 

41 

10 

F 

830 

♦ 

UBDR34 

LA 

RI 9 UCBP 

INITIALIZE 

001BOC 

41 

20 

F 

838 


LA 

R2,UCBP+8 

tt 

001B10 

41 

90 

0 

053 


LA 

R9,083 

9 9 

001B14 

91 

FF 

1 

000 

UBDR35 

TM 

OIRl)9X*FF* 

SEE IF GOT UCB DATA REG PARITY 

00 IB18 

47 

10 

F 

B32 


BC 

ALL »UBDR36 

BR IF YES 

001B1C 

15 

12 




CLR 

R1,R2 

SEE IF END r 

001B1E 

47 

80 

F 

B2E 


BC 

EQ,PGMER 

BR IF YES 1 

001B22 

41 

10 

1 

001 


LA 

RI 9 KRO 9 RD 

UPDATE ADDRESSES ! 

00 IB26 

41 

90 


001 


LA 

R9,1(RO,R9) 

UPDATE ERROR NUMBER 

001B2A 

47 

FO 


B14 


BC 

UNC,UBDR35 

CONTINUE f 

001B2E 

47 

FO. 

F 

B2E 

PGMER 

BC 

UNC,* 

**** PROGRAM ERROR **** 

001B32 

4E 

90 

F 

770 

UBDR36 

CVD 

R9,WKAR 

CONVERT ERR NO. TO PRINTABLE 

001B36 

OA 

DD 




SVC 

X *DD * 

9 9 

001B38 

0002 




DC 

AL2(2) 

9 9 

001B3A 

0776 




DC 

AL2CWKAR+6-SECN0) 

9 9 

001B3C 

083E 




DC 

AL2(ERRX+4-SECN0) 

9 9 

001B3E 

OA 

DO 


* 


SVC 

X *D0 • 

ERROR - GETTING FALSE UCB DATA REG 






' * 



,9 PARITY FOR DATA REG BITIS) XX 

001B40 

44 





DC 

X *44 * 

9 9 

001841 

07 





DC 

X • 07 • 

99 7 CHARACTERS 

001B42 

F83A 




DC 

AL2(ERRX-BASE+REG) 

,9 ADDRESS OF MESSAGE 

001B44 

47 

FO 

F 

C40 


BC 

UNC , LGOUT 

GO SEE IF WANT LOG OUT j 

001B48 

OA 

DO 



UBDR37 

SVC 

X *D0 * 

ERROR 111 - FALSE UCB PARITY WITH 






* 



99 ALL DATA REG BITS ACTIVE | 

001B4A 

44 





DC 

X *44 • 

99 

001B4B 

07 





DC 

X • 07 * 

99 7 CHARACTERS 

001B4C 

FE1B 


9 


DC 

AL2(ERR111-BASE+REG) 

99 ADDRESS OF MESSAGE 

001B4E 

47 

FO 

F 

C40 

* 

BC 

UNC 9 LGOUT 

GO SEE IF WANT LOG OUT 

001B52 

91 

04 

F 

80F 

* 

UBDR40 

TM 

DAT00+8 f X*04* 

SEE IF GOT PLC FOR DATOO 

001B56 

47 

80 

F 

BBC 


BC 

NONE,UBDR50 

BR IF NO 

001B5A 

91 

FF 

F 

80B 


TM 

DATOO+4,X *FF * 

SEE IF GOT PLC WITH FF 

001B5E 

47 

10 

F 

B6A 


BC 

ALL,UBDR41 

BR IF YES 

001B62 

91 

BF 

F 

80B 


TM 

DATOO+4,X*BF* 

SEE IF GOT PLC WITH 8F 

001B66 

47 

60 

F 

B74 


BC 

UNEQ,UBDR42 

BR IF NO 

001B6A 

OA 

DO 



UBDR41 

SVC 

X*DO* 

ERROR 092 - NOT GETTING UCB OATA REG 






♦ 


,9 RESET 

001B6C 

44 





DC 

X *44 * 

99 

001B6D 

07 





DC 

X *07* 

99 7 CHARACTERS 

001B6E 

FD96 




DC 

AL2 ( ERR092-BASE+REG) 

,9 ADDRESS OF MESSAGE 

001B70 

47 

FO 

F 

C40 

* 

BC 

I) ' 

UNC,LGOUT 

GO SEE IF WANT LOG OUT 

001B74 

41 

10 

F 

D3A 

* 

UBDR42 

LA 

R1,HBIT 

INITIALIZE 

001B78 

41 

20 

F 

D41 


LA 

R2,HBIT+7 

99 

001B7C 

41 

90 

0 

05D 


LA 

R9,93 

99 

001880 

43 

50 

1 

000 

UBDR43 

IC 

R5,0(R0 9 R1) 

SET UP MASK j 

DATE 

16JUN65 


15JUL65 

15MAR66 15NQV66 


ID F8GD-3 

EC 

124263 


124265 

125632 125655 
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001B84 : 

44 

50 

F 

BA2 



EX 

R5,UBDR44 

FIND HOT BITS 

001B88 

47 

10 

F 

BA6 



BC 

ALL»UBDR45 

BR IF THIS BIT IS HOT 

001B8C 

15 

12 





CLR 

R1,R2 

SEE IF END 

001B8E 

47 

60 

F 

B96 



BC 

UNEQ,*+8 

BR IF NO 

001B92 

47 

FO 

F 

B92 



BC 

UNC,* 

PROGRAM OR MACHINE ERROR 

001B96 

41 

10 

1 

001 



LA 

R1 #1(R0»R1) 

UPDATE ADDRESS 

001B9A 

41 

90 

9 

001 



LA 

R9,1(R0»R9> 

UPDATE ERROR NUMBER 

001B9E 

47 

FO 

F 

B80 



BC 

UNC,UBDR43 

CONTINUE 

001BA2 

91 

00 

F 

80B 


UBDR44 

TM 

DATOO+4,X *00 * 

USED BY EXECUTE OP 

001BA6 

4E 

90 

F 

770 


UBDR45 

CVD 

R9,WKAR 

CONVERT ERROR NO TO PRINTABLE 

001BAA 

OA 

OD 





SVC 

X*DD* 

if 

00IBAC 

0002 





DC 

AL2(2) 

« • 

001BAE 

0776 





DC 

AL2(WKAR+6—SECNO) 

ft 

001BB0 

083E 





DC 

AL2(ERRX+4—SECNO) 

11 

001BB2 

OA 

DO 





SVC 

X*DO* 

ERROR - HAVE UCB DATA REG HOT BIT 

001BB4 

44 






DC 

X *44* 

t # 

001BB5 

07 






DC 

X»07* 

9, 7 CHARACTERS 

001BB6 

F83A 





DC 

AL2 (ERRX-8ASE+REG 1 

t, ADDRESS OF MESSAGE 

001BBS 

47 

FO 

F 

C40 


* 

BC 

UNC•LGOUT 

GO SEE IF WANT LOG OUT 

001BBC 

D5 

06 

F 

D16 F 

826 

♦ 

UBDR50 

CLC 

PBDRK2(7),PLCB 

SEE IF DID NOT GET PLC FOR 80-01 

001BC2 

47 

60 

F 

C22 



BC 

UNEQ»U8DR70 

9, BR IF DID GET ALL OR MIXED 

001BC6 

91 

04 

F 

819 



TM 

DAT40+8,X , 04 # 

• t 

001BCA 

47 

80 

F 

BD8 



BC 

NONE,UBDR51 

,, BR IF DID GET ALL OR MIXED 

001BCE 

OA 

DO 





SVC 

X«DO« 

ERROR 094 - UCB DATA REG 1 BIT ON 







* 



9, SOLID 

001BD0 

44 






DC 

X *44* 

« , 

001BD1 

07 






DC 

X *07 • 

,, 7 CHARACTERS 

001B02 

FDA4 





DC 

AL2(ERR094-BASE+REG) 

,, ADDRESS OF MESSAGE 

001BD4 

47 

FO 

F 

C40 


* 

BC 

UNC,LGOUT 

GO SEE IF WANT LOG OUT 

001BD8 

OA 

DO 




* 

UBDR51 

SVC 

X*DO* 

ERROR 101 - NOT GETTING UCB DATA REG 







* 



,, LOAD FORMAT SET OR UCB DATA REG 







* 



,, RESET ON SOLID 

00IBDA 

44 






DC 

X *44* 

♦ t 

001BDB 

07 






DC 

X' 07 • 

99 7 CHARACTERS 

001BDC 

FDD5 





DC 

AL2(ERR101-BASE+REG) 

,, ADDRESS OF MESSAGE 

001BDE 

47 

FO 

F 

C40 


* 

BC 

UNC,LGOUT 

GO SEE IF WANT LOG OUT 

001BE2 

41 

10 

F 

826 


* 

UBDR60 

LA 

Rl, PLCB 

Jl 

INITIALIZE 

0018E6 

41 

20 

F 

82C 



LA 

R2,PLCB+6 

,, 

001BEA 

41 

90 

0 

066 



LA 

R9,102 

, , 

001BEE 

91 

FF 

1 

000 


UBDR61 

TM 

0(Rl)»X *FF• 

BR IF NO PLC 

001BF2 

47 

80 

F 

COC 



BC 

N0NE,UBDR63 

, t 

001BF6 

15 

12 





CLR 

Rl ,R2 

SEE IF END 

001BF8 

47 

80 

F 

C08 



BC 

EQ,UBDR62 

BR IF YES 

001BFC 

41 

10 

1 

001 



LA 

Rl , 1(R0,R1) 

UPDATE ADDRESS 

001COO 

41 

90 

9 

001 



LA 

R9,1(RO,R9) 

UPDATE ERRCR NUMBER 

00lC04 

47 

FO 

F 

BEE 



8C 

UNC,UBDR61 

CONTINUE 

001C08 

47 

FO 

F 

C08 


UBDR62 

BC 

UNC,* 

**** PROGRAM OR MACHINE ERROR **** 

001C0C 

4E 

90 

F 

770 


UB0R63 

CVD 

R9,WKAR 

CONVERT ERR NO. TO PRINTABLE 

001C10 

OA 

OD 





SVC 

X *DD * 

»» 

001C12 

0002 





DC 

AL2(2) 

it ■ i 

001C14 

0776 





DC 

AL2(WKAR+6—SECNO) 

i • 

001C16 

083E 





DC 

AL2(ERRX+4-SECNO) 

9 , 

001C18 

OA 

DO 





SVC 

X *D0 • 

ERROR - CAN NOT TURN ON UCB DATA REG 







♦ 



,, BIT X 

001C1A 

44 






DC 

X *44 • 

if 

001C1B 

07 






DC 

X * 07' 

,, 7 CHARACTERS 

001C1C 

F83A 





DC 

AL2(ERRX-BASE+REG) 

,, ADDRESS OF MESSAGE 

001C IE 

47 

FO 

F 

C40 


* 

BC 

UNC,LGOUT 

GO SEE IF WANT LOG OUT 1 

! 

001C22 

D5 

06 

F 

D20 F 

826 

* 

U8DR7Q 

CLC 

PBDRK3(7),PLCB 

GET PLC FOR ALL BUT DAT40 

001C28 

47 

60 

F 

BE2 



BC 

UNEQ,UBDR60 

BR IF NO 


DATE 

16JUN65 

15JUL65 

15MAR66 

15N0V66 

ID F8GD- 

EC 

124263 

124265 

125632 

125655 
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0O1C2C 

OA DO 



SVC 

X *D0 * 

ERROR 109 - CANNOT TURN ON UCB DATA 





♦ - 


,, REG 1 BIT 

001C2E 

44 



DC 

X *44 • 

tt 

001C2F 

* 07 



DC 

X • 07 • 

,, 7 CHARACTERS 

001C30 

FEOD 



DC 

AL2(ERR109-BASE+RE6) 

9 , ADDRESS OF MESSAGE 

001C32 

47 FO 

F 

o 

* 

o 

BC 

* 

UNC,LGOUT 

GO SEE IF WANT LOG OUT 

001C36 

OA DO 



* 

UBDR80 SVC 

X *D0 • 

ERROR 110 - PLC OR COMPARE PROBLEM 

001C38 

44 



PC 

X *44* 

♦ t 

001C39 

07 



DC 

X # 07* 

99 7 CHARACTERS 

001C3A 

FE14 



DC 

AL2(ERR110-BASE+REG) 

«9 ADDRESS OF MESSAGE 

001C3C 

47 FO 

F 

C40 

BC 

UNC,LGOUT 

GO SEE IF WANT LOG OUT 





* LOG OUT ROUTINE 

• 

001C40 

91 20 

F 

004 

LGOUT TM 

SNSW,X*20* 

BR IF SEC SS 02 IS 0 - 00 NOT WANT 





* 


9 9 LOG OUT 

001C44 

47 80 

F 

CA2 

BC 

NONE,LGOUTE 

99 

001C48 

41 10 

F 

7C1 

LA 

R1,DAT80 

INITIALIZE 

001C4C 

41 20 

F 

BIB 

LA 

R2,DATFF 

11 

001C50 

02 09 

F 

7B7 1 000 

LGOUTA MVC 

DATWK(IO)fO(Rl) 

MOVE DATA 

001C56 

OA DD 



SVC 

X *DD • 

CONVERT DATA TO PRINTABLE 

001C58 

0009 



DC 

AL2(9) 

,, CONVERT 9 BYTES 

001C5A 

0787 



DC 

AL2(DATWK-SECNO) 

,, HEX DATA ADDRESS 

001C5C 

057C 



DC 

AL2(SCPDAT—SECNO) 

,, PRINTABLE DATA ADDRESS 

001C5E 

41 30 

F 

57C 

LA 

R3,SCPDAT 

INITIALIZE 

001C62 

41 40 

F 

590 

LA 

R4 s SCPDAT+20 

9 1 

001C66 

41 50 

F 

5E0 

LA 

R5,SCPDAT+100 

• I 

001C6A 

92 40 

F 

5E0 

MVI 

SCPDAT+100,X *40• 

SET UP PRINT FIELD 

001C6E 

D2 30 

F 

5E1 F 5E0 

MVC 

SC PDA T+101{49)»SCPDAT+100 ,» 

001C74 

D2 01 

5 

000 3 000 

LGOUTB MVC 

0(2 ,R5),0(R3) 

•* 

\ 001C7A 

15 34 



CLR 

R3,R4 

BR IF END | 

001C7C 

47 80 

F 

C8C 

bc : 

EQ,LGOUTC 

9 1 

001C80 

41 50 

5 

003 

LA 

R5,3(R0,R5) 

UPDATE ADDRESSES j 

001C84 

41 30 

3 

002 

LA 

R3»2(R0,R3) 

*» i 

001C88 

47 FO 

F 

C74 

BC 

UNC,LGOUTB 

CONTINUE 

001C8C 

OA DO 



LGOUTC SVC 

X *D0 1 

LOG OUT OF ACCUMULATED DATA j 

001C8E 

80 



DC 

X • 80 • 

* * | 

001C8F 

1A 



DC 

X • 1A • 

,, 26 CHARACTERS j 

001C90 

F 5 EO 



DC 

S(SCPDAT+100) 

99 ADDRESS OF MESSAGE j 

001C92 

15 12 



CLR 

Rl,R2 . 

SEE IF END OF LOG OUT f 

001C94 

47 80 

F 

CAO 

BC 

EQ,LGOUTD 

BR IF YES 

001C98 

41 10 

1 

00 A 

LA 

Rl,10(RO,R1) 

UPDATE ADDRESSES 

001C9C 

47 FO 

F 

C50 

BC 

UNC,LGOUTA 

CONTINUE 

001CA0 

OA DA 



LGOUTD SVC 

X * DA * 

HALT + WAIT FOR ACTION 

001CA2 

91 40 

F 

004 

LGOUTE TM 

SNSW,X*40* 

BR IF SEC SS 01 IS 0 - DO NOT WANT 





* 


,, UTILITY ROUTINE 

001CA6 

47 80 

F 

CAE’ 

BC 

NONE,LGOUTF 

I 

t 1 

001CAA 

45 80 

F 

678 

BAL 

R8,SCPROO 

BR TO UTILITY ROUTINE | 

001CAE 

91 20 

E 

1A3 

LGOUTF tM 

419(R14),X *20• 

IS LOOP ON SEC SS ON j 

. 001CB2 

47 10 

F 

CBA 

BC 

ALL,LGOUTG 

BR IF YES ! 

• 001CB6 

96 40 

F 

751 

01 

SCHNUM,X*40• 

SET UP TO BYPASS ALL REMAINING OVLYS j 

001CBA 

D2 02 

F 

86D F 753 

LGOUTG MVC 

RMSG1(3),UAPRT 

MOVE PRINTER ADDR TO OUTPUT MESSAGE 

001CC0 

OA DO 



SVC 

X *D0 • 

PRINT MESSAGE INDICATING TO RESTORE 

001CC2 

80 



DC 

X' 80' 

,, UCS BUFFER WITH PROGRAM F837 

001CC3 

2B 


’ 

DC 

X *2B • 


001CC4 

F842 



DC 

AL2(RMSG-BASE+REG) 

’ ’ 

001CC6 

OA DO 



SVC 

X *D0* 


001CC8 

80 



DC 

X •80* 


001CC9 

28 



DC 

X •28* 1 

,1 

001CCA 

F86D 



DC 

AL2(RMSG1-BASE+REG) 


001CCC 

OA D6 



SVC 

X *D6 • 

ROUTINE EXIT 





*******>{1*#*:********$$:^#*********************************************** 





* CCWfS 

USED BY ROUTINE 04 

* 





$££**«**4$**********#$#$*4*** *************** *************************** 

001CDO 

EB 00157C 6000 0001 

LUBCCW CCW 

X»EB',SCPDAT,X*60»,l 

COND LD FMT CCW - SLI + CC ON 

001CD8 

FB 00157C 2000 OOFO 

ccw 

X»FB‘,SCPDAT,X*20*,240 LOAD UCS BUFFER - SLI ON 

DATE 

16JUN65 


15JUL65 15MAR66 15N0V66 


ID F80D-3 

EC 

124263 


124265 125632 125655 
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001D42 

001D49 

001D50 

001D57 

001D5E 

001D65 

001D6C 

001D73 

001D7A 

001D81 

001D88 

001D8F 

001D96 

001D9D 

001DA4 

001DAB 

001DB2 

001DB9 

001DC0 

001DC7 

001DCE 

001DD5 

001DDC 

001DE3 

001DEA 

001DF1 

001DF8 

001DFF 

001E06 

OOIEOD 

001E14 

001E1B 


000078 

HI ON 

EQU 

120 

001118 

CSWSAV 

* 

* 

£ 

EQU SI0VR3 

EQUATES USED 1 

0017B7 

U08WR 

EQU 

DATWK 

0017B8 

UCBST. 

EQU 

DATWK+1 

0017B9 

UCBSNS 

EQU 

DATWK+2 

0017BA 

UCBWCR 

EQU 

DATWK+3 

0017BB 

PW 

EQU 

DATWK+4 

0017BC 

PW1ST 

EQU 

DATWK+5 

0017BD 

PW2ST 

EQU 

DATWK+6 

0017BE 

PWSNS 

EQU 

DATWK+7 

0017BF 

PWCR 

EQU 

DATWK+8 


HARDWARE I/O NEW PSW LOCATION 


C5D9D940F0F8F0 

C5D9D940F0F8F1 

C5D9D940F0F8F2 

C5D9D940F0F8F3 
C5D9D940F0F8F4 
C5D9D940F0F8F5 
C5D9D940F0F8F6 
C5D9D94OF0F8F7 
C5D9D940F0F8F8 
C5D9D940F0F8F9 
C5D9D940F0F9F0 
C5D9D940F0F9F1 

C5D9D940F0F9F2 

C5D9D940F0F9F3 

C5D9D940F0F9F4 

C5D9D940F0F9F5 

C5D9D940F0F9F6 

C5D9D940F0F9F7 

C5D9D940F0F9F8 

C5D9D940F0F9F9 

C5D9D940F1F0F0 

C5D9D940F1F0F1 

C5D9D940F1F0F2 
C5D9D940F1F0F3 
C5D9D940F1F0F4 
C5D9D940F1F0F5 
C5D9D940F1F0F6 
C5D9D940F1F0F7 
' C5D9D940F1F0F8 
C5D9D940F1F0F9 
C5D9D940F1F1F0 
C5D9D940F1F1F1 


001000 

OOFOOO 


*********************************************************************** 

* ERROR DEFINITIONS FOR ROUTINE 04 * 

*********************************************************************** 
ERR080 DC C 'ERR 080* FALSE UCB DATA REG PARITY ERRORS 

ERR081 DC C'ERR 081* UCB DATA REG PARITY LATCH ON SOLID 

ERR082 DC C'ERR 082• * CAN NOT TURN ON UCB DATA REG PARITY 

* LATCH 

ERR083 DC C'ERR 083* FALSE UCB DATA REG PARITY FOR 0 BIT 

ERR084 DC C 'ERR 084* FALSE UCB DATA REG PARITY FOR 2 BIT 

ERR085 DC C'ERR 085* FALSE UCB DATA REG PARITY FOR 3 BIT 

ERR086 DC C'ERR 086* FALSE UCB DATA REG PARITY FOR 4 BIT 

ERR087 DC C•ERR 087* FALSE UCB DVrA REG PARITY FOR 5 BIT 

ERR088 DC C 'ERR 088* FALSE UCB DATA REG PARITY FOR 6 BIT 

ERR089 DC C'ERR 089* FALSE UCB DATA REG PARITY FOR 7 BIT 

ERR090 DC C'ERR 090* FALSE UCB DATA REG PARITY FOR P BIT 

ERR091 DC C *ERR 091* FALSE UCB DATA REG PARITY FOR 0 AND 

* 1 BITS 

ERR092 DC C *ERR 092* NEVER GETTING UCB DATA REG RESET 

ERR093 DC C'ERR 093* UCB DATA REG 0 BIT ON SOLID 

ERR094 DC C'ERR 094* UCB DATA REG 1 BIT ON SOLID 

ERR095 DC C'ERR 095* UCB DATA REG 2 BIT ON SOLID 

ERR096 DC C'ERR 096' UCB DATA REG 3 BIT ON SOLID 

ERR097 DC C'ERR 097' UCB DATA REG 4 BIT ON SOLID 

ERR098 DC C'ERR 098' UCB DATA REG 5 BIT ON SOLID 

ERR099 DC C'ERR 099* UCB DATA REG 6 BIT ON SOLID 

ERR 100 DC C'ERR 100' UCB DATA REG 7 BIT ON SOLID 

ERR101 DC C'ERR 101' NOT GETTING UCB DATA REG SET OR UCB 

* DATA REG RESET ON SOLID 

ERR102 DC C'ERR 102' CAN NOT TURN ON UCB DATA REG 0 LATCH 

ERR103 DC C'ERR 103* CAN NOT TURN ON UCB DATA REG 2 LATCH 

ERR104 DC C'ERR 104' CAN NOT TURN ON UCB CATA REG 3 LATCH 

ERR105 DC C'ERR 105* CAN NOT TURN ON UCB CATA REG 4 LATCH 

ERR10L DC C'ERR 106' CAN NOT TURN ON UCB CATA REG 5 LATCH 

ERR 107 DC C'ERR 107* CAN NOT TURN ON UCB DATA REG 6 LATCH 

ERR10& DC C'ERR 108' CAN NOT TURN ON UCB DATA REG 7 LATCH 

ERR109 DC C'ERR 109* CAN NOT TURN ON UCB DATA REG 1 LATCH 

ERR110 DC C'ERR 110' PLC OR COMPARE PROBLEM 

ERR111 PC C'ERR 111' FALSE UCB DATA REG PARITY WITH ALL 

* DATA REG BITS ACTIVE 

*********************************************************************** 
BASE EQU SECNO 

REG EQU X'FOOO' 

END 


16JUN65 15JUL65 15MAR66 15N0V66 

124263 124265 125632 125655 


ID F80D-3 
PAGE 10A 
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POST ASSEMBLY OATA. 


REFERENCES TO OEFINED SYMBOLS. 



1 8 Z 

1 8 EQ 


1 

8 

EQ 

18A0, 

18F4, 

1942, 

1950, 

196A , 

1A20, 

1A6E 




1B1E, 

18F8, 

1C7C, 

1C94 




1 

2 

HI 








1 

4 

LO 








1 

7 

NZ 








10 

17BB 

PW 

1910, 

1962, 

1966, 

1982, 

19BC 



1 

0 

RO 

18F8, 

1946, 

195E, 

199E, 

19A2, 

19D6, 

19DA 




1A0A, 

1A0E, 

1A72, 

1A76, 

1A7A , 

1822, 

1B26 




1B60, 

1B96, 

1B9A, 

1BFC, 

1C00, 

1C80, 

1C84 




1C98 







1 

1 

R1 

18C2, 

1802, 

1808, 

193A, 

1940, 

1946, 

1946 




194E, 

1A36, 

1A46, 

1A6C, 

1A72, 

1A72 , 

1B08 




1814, 

IB 1C, 

1B22, 

1B22, 

1874, 

1B80, 

1B8C 




1896, 

1B96, 

18E2, 

1BEE, 

18F6, 

1BFC, 

1BFC 




1C48, 

1C50, 

1C92, 

1C98, 

1C98 



1 

2 

R2 

18CA, 

18D8, 

1A3A, 

1A6C, 

1B0C, 

181C, 

1678 




1B8C, 

1BE6, 

1BF6, 

1C4C, 

1C92 



1 

3 

R3 

18DE, 

18EA , 

18F2, 

18F8, 

18F8, 

190 A, 

1A3E 




1A4C, 

1A58, 

1A76, 

1A76, 

1C5E, 

1C74, 

1C7A 




1C84, 

1C84 






1 

4 

R4 

18E2, 

18F2, 

1A42, 

1A5C , 

1A68 , 

1A7A, 

1A7A 




1C62, 

1C 7 A 






1 

5 

R5 

18CE, 

194E, 

I860, 

1884, 

1C66, 

1C74, 

1C80 




1C80 







1 

6 

R6 

195C, 

195C, 

195E, 

195E, 

1962 



1 

7 

R7 








1 

8 

R8 

18BE, 

1916, 

191A, 

191E, 

192C, 

1930, 

1954 




196E, 

1972, 

1976, 

19BA, 

19F8, 

1A24, 

1CAA 

1 

9 

R9 

18C6, 

1940, 

IB10, 

1B26, 

1826, 

1B32, 

187C 




1B9A, 

1B9A, 

1BA6, 

1BEA, 

1C00, 

1C00, 

1C0C 

1 

1 

ALL 

18EE, 

1C82 

197E, 

1A98, 

1AFA, 

1818, 

1B5E, 

1888 

1 

5 

ANY 








1 

1048 

CAW 

19A2, 

19DA, 

1A0E 





1 

8 

CCO 








1 

4 

CC1 








1 

2 

CC2 








1 

1825 

COG 








1 

1040 

CSW 








1 

4 

NEG 










1 2 POS 

1 A RIO 


1 

B 

RU 

19AA, 

19E2, 

1A16 



; | 


1 

1 

C 

R12 

19A6, 

19DE, 

1A12 






1 

D 

R13 








1 

1 

E 

R14 

1CAE 







I 

1 

F 

R15 


• 







1 

FOOO 

REG 

18B4, 

1A30, 

1AAA, 

1AC8, 

1AE6, 

1B02, 

1B42 





1B4C, 

1B6E , 

1B86, 

1BD2, 

1BDC, 

1C1C, 

1C30 

j 




1C3A, 

1CC4, 

1CCA 





i\ 

i 

1 

1228 

SIO 

19AA, 

19E2, 
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1 

F 
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18B8, 
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UBDR34 
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4 

1B14 

UBDR35 

1B2A 

4 

. . 1B32 

UBDR36 

IB 18 

2 

IB 48 

UBDR37 

1AFA 

4 

1B52 

UBDR40 

1A88, 1A90 

2 

186A 

UBDR41 

1B5E 

4 

1B74 

UBDR42 

1866 


7 

10C7 

ERR099 

■' . * . 

4 

1BA2 UBDR44 

1B84 


• . - 1 ■ ’ ■ . - ■ ;■ | 

7 

1DC6 

ERR100 


4 

1BA6 UBDR45 

1B88 


• ' ; ‘ • ■ • . ' ' l. .. t 

7 

1DD5 

ERR101 

IBDC :• * 

6 

1BBC U8DR50 

1B56 


■ ■ ■ • ■ M 

7 

1DDC 

ER&102 


2 

'1808 UBDR51 

1BCA 



7 

1DE3 

ERR 103 


4 

1BE2 UBDR60 

1C28 


1 1 

7 

IDEA 

ERR104 


4 

IBEE UBDR61 

1C04 



7 

1DF1 

ERR105 


4 

1C08 UBDR62 

1BF8 



7 

IDFF 

ERR107 


4 

1C0C UBDR63 

1BF2 


, . •• •; ■ . ; 

7 

1E06 

ERR108 


6 

1C22 UBDR70 

1BC2 



7 

1E0D 

ERR 109 

1C30 

2 

1C36 UBDR80 

1A98 


• - - ..." v * 

7 

1DF8 

ERR10L 


•• 10 

17B9 UCBSNS 

19B4* 

1A60 


7 

1E14 

ERR 110 

1C3A 

10 

17BA UCBWCR 

1922 

/ 


7 

1E1B 

ERR111 

1B4C 

1 

1000 XF8003 




6 

1C50 

LGOUTA 

1C9C 






6 

1C74 

lGoutb 

1C 8 8 






2 

1C8C 

LGOUTC 

1C7C 





Jr ■ ■ - i . : \ • 

2 

ICAO 

LGOUTD 

1C94 






4 

1CA2 

LGOUTE 

1C44 


NO ERROR 

DETECTED 
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1CAE LGOUTF 
ICBA LGOUTG 
1CD0 LUBCCW 
1D2A NERDET 
9 NMIXED 
D NOTBSY 


2 

1D14 

PBDRK1 

19FA, 

1A1A 






10 

1016 

PB0RK2 

1ABA, 

1ACE, 

1AEC, 

1BBC 


: ' 


10 

1D20 

PBDRK3 

1A82, 

1A9C, 

1AB0, 

lAD8f 

1C22 



1 

1751 

SCHNUM 

189Ct 

1CB6 






1 

157C 

SGPDAT 

1922, 

1934, 

197A , 

198E, 

1994, 

1994, 

19BC 




19C2, 

19C2, 

19C8, 

19CC, 

19CC * 

19FA, 

1AOO 




1A00 # 

lAlAff 

1C5C, 

1C5E , 

1C62, 

1C66 , 

1C6A 




1C6E, 

1C6E, 

1C90, 

1CD0, 

1CD8 , 

1CE0, 

1CE8 

1 

1678 

SCPROO 

18BE, 

1CAA 






1 

1122 

SIOSWS 

199A, 

19D2, 

1A06 





1 

1118 

SIQVR3 

1D42 







1 

1108 

SI0VR4 








1 

119F 

STATSV 

19EC 







1 

10E2 
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19A6, 

19DE , 

1A12 





4 
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4 

18A8 
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18A0 







4 
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18AC 







4 
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UBDR10 
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6 
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UBDR11 
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4 
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UBDR12 
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6 
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6 
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UBDR14 

18EE 







6 
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UBDR15 

18DA, 

1906 






4 

192C 

UBDR16 

1958 







6 

1934 

UBDR17 

197E , 

198A 






2 

194E 

UBDR18 

1928 







2 

195C 

UBDR19 

1950 







4 

195E 

UBDR1A 

196A, 

1986 






4 

1A36 

UBDR20 

1942 







6 

1A46 

UBDR21 

1A7E 







4 

1A5C 

UBDR22 

1A54 







2 

1A6C 

UBDR23 

1A64 







6 

1A82 

UBDR30 

1A6E 







6 

1AB0 

UBDR31 

1AA2 
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8TXT*AKD..A8.•AAAAAB 
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Y9 

Y9YYYY 
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Y9 

Y9 
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9 Y8- Y9 Y9 
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999 99 9 
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9 Y9 Y9Y9 
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9 Y9 

9 

BDAT.. 

9 

BESD.AA* • AAXF80 

9 YQ Y9 

99 9 

BTXT.AAN..AC*.AAAQH* 
9 YQ9 Y9 Y9Y9- 

99 9 9 9 
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9 Y98 Y9 Y99Y9Y 

9 9 9 9 9 

BTXT* APM*•A8*•AAREAD 
9 Y90 Y9 Y9 

9 9 9 

BTXT *APD*•A8*•AAAAAH 
9 Y9Q Y9 Y9YYY9 

9 9 .9 9 999 

BTXT*AQM..A8.* AAAAAA 


9 Y99 

Y9 

Y9YYYY 

9 

9 ' 

9-9999 

BTXT.AQD. 

. A8 « 

• AAONT E 

9 Y98 

Y9 

Y9 

9 

9 

9 


AG5HGABHNG5A5BGAB6NG 
-Q —ZQQZ 9 Q ZYQ8 9 
Z 9Z Z9 

G0BMB0AK5SNKGAB0AAAB 
Z Q08-Y8 899ZYQ-ZQQ8 
Z 9 9 Z 999 

EAN4JAABBAN4JAAAFAN4 
9Y98YYY99Y98YYY99Y98 
9 999 9 999 9 
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z Z 92 9 Z Z-9 z 

GQBABBA.0DGABFEA6MAJ JLGABKF*7AB080D3C018 

Z QY8C- 9ZYCQZY R-Y ZOZQQY- R8 

Z 99 Z9 0 9 9Z9 9 

JAAB2821•SCAN/1403*U CST.PRINT.8U80D30019 

YYY9 8 

999 

R0RS.DETECTEDERR.050 ERR*051ERR*080030020 


RR*056ERR*057ERR*058 ERR.059ERR*080D30021 


RR*064ERR»065£RR*066 ERR.067ERR*080030022 


80030023 


60030024 


80030025 

I 


80030026 


80030027 


80D30028 
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99999999999999 
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BTXT.AQD. 

* A8* 

• AAWITH 

.PROGRAM.F837AGADAGG 

ED7AGA8QG0DBAC0DGA8F 

BOAUD0A.0DGA8OD30034 

9 Y90 

Y9 

Y9 

Y9Y9YQQ 

-0 RZY OZ QQ-9 9ZY 0 

8-Y9Q - 9ZY 

9 

9 

9 

9 9 9ZZ 

ZO 

9 Z 

BTXT*AQD* 

• A8. 

•AA8BEA 

6HAA7AAA8LAJ8JA+8GKA 

7GAANKG-9AAA7AA.7EB. 

7GADAHGA9BN480030035 

9 Y9Q 

Y9 

Y9 ZY 

RZQ ZQ 8ZY 9Z 9 8 

0QY99Z QZQ Z Q- 

0-9Q9ZQ 899 

9 0 

9 

9 

0 9 9 9 9 

-99 9 Z Z 

- 2 9 9 

BTXT*AQ4* 

• AS* 

•AAGA9A 

AAABG08KOA7G8CG09AOA 

7GAAKA7C7GEA9FEA9BEA 

9BKA7B54G09F80D30036 

9 Y9 

Y9 

Y9ZY Y 

ZQQ8Z Y Y 0 8Z Q Y 

OQY Y Q OZY YZY QZY 

Q Y Q 8Z 8 

9 

9 

9 9 

ZZ9 99-9 99 

—Z9 9 0 - Z 

Z 9 0 

BTXT•AJU* 

• A8* 

•AAEA9B 

EA9BKA7G54KAAA7GNJGA 

86AAABG08KNNGA9MEA9D 

G09UL0A—AB-80D30037 

9 Y88 

Y9 

Y9ZY Q 

ZY Q Y Q 8 8QY 098ZY 

Q9ZQQ8Z 99ZY 8ZY Q 

Z 88 ZZ 92 

999 

9 

9 Z 

Z 9 0 999 - 9 

Z 999 0 

99 

BTXT*AJM* 

• AS* 

•AA7CE. 

7CGA90EA9DEA9BEA9BAD 

54GA94EG7CG-90G094KA 

547GK055548A80D30038 

9 Y8Z 

Y9 

Y9 Q- 

QZY 8ZY QZY QZY Q-9 

8ZQ 9—Q QZ 8Z 9 Y 

8 0 Y 8 8-Y 

99 

9 

9 0 

0 0 Z Z 

9 Z 0 9 

- 9 9 

BTXT.AJD* 

• A8 * 

«AA1SAA 

D0+A0HH00SEA2YKA7H1Q 

KA7I1JG8KA547CKA5554 

BA56KA5756BA80030039 

9 Y8Q 

Y9 

Y9 9ZY 

Q- Y ZZ+ ZQ 9 Y 0 0 

Y0Y9 Y8QY88 

-Y 8 0 8 8-Y 

99 

9 

9 9 

Z 9 0 9- 

9 - 9 9 0 9 

9 9 

BTXT.AJM. 

*A8. 

•AA1SAA 

DS+A0HH00SEA2YKA7D1M 

KA7E1GKA7F1JG8KA54EM 

KB5554BA1S AA80D30040 

9 Y8 

Y9 

Y9 9ZY 

Q8 Y ZZ+ ZQ 9 Y Q 8 

Y Q Q Y Q Y9 9 8Q9 

0 8 8-Y 9ZY 

99 

9 

9 9 

Z 9 0 9 0 9 

9 0 9 0 9 Z 

9 9 

BTXT*AKO* 

• A8* 

•AADY+A 

OHHOOSEA2YNA54EMGABW 

G8KB7D7CB0D174G09BAA 

7AAJ8LAA8WA*80030041 

9 Y88 

Y9 

Y9Q Y 

ZZ+ ZQ 9 9 8Q9ZYQ9 

990 R8-Z9 8Z QZQ 

ZY 8ZQ 9Z 

999 

9 

9 Z 9 

0 Z Z 

- 9 Z 9 

9 9 Z 

BTXT.AKD. 

* A8* 

•AA8AKA 

7GAABAAAAD7GGABMBGAA 

BA.AAD7IGABUBG.ANKGA 

BBAAABAAAAA.80D30042 

9 Y8Z 

Y9 

Y9 Q 8 

0QY-YQY-9 QZYQ8-QQY 

-Y Y-9 0ZYQ8-Q Y99ZY 

Q0ZQQ8ZQQ9Z 

99 

9 

9 Z 9 

-99 9Z9 0 Z ZZ9 

9 9 - Z Z 9 

Z 999 ZZ 

BTXT.AK4* 

* A8* 

•AA.AGO 

BFNFEJ8WG-CBAD8JGACB 

AG8VGAD6NH8AEJG-BAB0 

AGEBGOD.NF8A80D30043 

9 Y88 

Y9 

Y9 9Z 

QZ 9QY 9Z QR-9 8ZYQR 

-Q 8ZQQ9 9 QQYZ QQ8- 

Z9QZZ Q 9 Q 

99 

9 

9 

Z Z9 Z 9 Z 

Z 9 9Z ZZ9 Z09 

Z Z Z 

BTXT.AKD* 

• A8* 

•AAEJG- 

BFNA87EOG-BFBODGEAGO 

D.NF8AE0G-BMNA87EJG- 

BMBODGE+GOD*80030044 

9 Y80 

Y9 

Y9QYZ 

QY 9 9Q9Z QY8^Z9Q8Z 

Q 9 QQ9Z QY 9 9QYZ 

QY8-Z9Q Z Q 

99- 

9 

9 Z9 

Z9 Z Z99 Z 

Z ZZ Z9 Z9 

Z99 Z Z 

BTXT.AKM. 

• A8* 

• AANH8A 

E0G-CHAG81GACHB0DAES 

GOD* AA8AAJ88AAACAGAA 

GAC2NKGACWAA80D30045 

9 Y8Y 

Y9 

Y9 9 Q 

Q9Z Q9-Q 8ZQQZ8-0QQ8 

Z Q ZQ QZY 9ZQYR-QQY 

ZQQ999ZYQ8ZQ / 

999 

9 

9 Z 

Z Z Z 9 9Z 9 9Z9 % 

Z 9 Z 9 9 Z99 

9Z Z9 9 

BTXT.ALU. 

• A3* 

•AAAAAA 

AAG0CMG0CWFA70BEABGF 

H6B0DG82G0D* BODGFLGO 

D.AD8GGACDAG80D3C046 

9 Y89 

Y9 

Y9Q9ZQ 

Q9Z Q9Z Q88Q +8QY99R 

988-29 8Z Q 8-Z9G8Z 

Q -9 8ZYQQ-Q 

99 

9 

9 9 

Z Z 9 -999 0 

99 9 ( Z 9 Z9 

Z 9 ZO Z 

BTXT*ALM. 

• A8 * 

•AA8CGA 

C+AG8CG-CDB0DGEFG0D. 

AAE2AJEAAAANC+AAD+CK 

GACONKG-CFGO80030047 

9 Y88 

Y9 

Y9 8ZQ 

Q—Q 8Z QR8-Z9Q-Z Q 

ZQQ8ZYQZZQY8Z QYZ QO 

ZQQ099Z Q-Z 

99 

9 

9 9 9 

Z 0 9 Z09 2 Z 

9Z9 9Z 9 99 Z 

9Z Z 

BTXT*ALD* 

*A8. 

•AACBAA 

AAAAAAG0CAAA8CFA708E 

ABGFH6B0DG82G0D.NFEO 

8WG-CSAD8JGA8003C048 

9 Y8- 

Y9 

Y9Q-ZQ 

Q9ZQQ9Z QY-Y 88Q +8Q 

Y99R988—Z9 8Z Q 9Q9 

9Z Q9-9 8ZY 

99 

9 

9 Z 9 

9 Z 9 9 -99 

9 0 99 'f\ 9 Z Z 

Z 9 

BTXT*ALO* 

• A8« 

.AACQBO 

DGEMGOD.BODGENGOD.AA 

8VIAJ8UAAAGAGAAGADDNK 

GADKAAAAAAAA80030049 

9 Y8Y 

Y9 

Y9Q 8- 

Z9Q0Z Q 8-Z9Q Z Q ZQ 

9ZY 8ZQYZ-QQYZYG899 

ZYQ9ZQQ9ZQQ9 

999 

9 

9 Z 9 

Z Z 9 Z^Z 9 

9 9 9, Z99 Z9 

Z 99 

BTXT.AMD* 

• AS* 

•AAGOCO 

G0DHFA70BEABGFH6B0DG 

82G0D.NFEJ8WG-CS80DG 

FEG0D.B0DGFM80D3C050 

9 Y89 

Y9 

Y9Z QY 

Z Q98Q +8QY99R988-Z9 

8Z Q 9QY 9Z Q 8-29 

Q8Z Q 8-Z9Q9 

99 

9 

9 Z9 

Z -999 0 99 

9 2 29 Z 9 

Z9 Z 9 Z n 
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BTXT.AM4. 
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•AAGOD* 

AJ0DGADKAA7AAJ8LKA7G 
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Y9 

Y92 Q 

-Y 9ZYQ0ZQ 

ZY 8 8 0 

999 

9 

9 Z 

9 Z 9 

9 9 9 - 

BTXT.AMD. 

• A3. 

•AAKA+A 

AAN4GAD0A++CAAABG0DD 

9 Y8R 

Y9 

Y9 9 Y 

QY99ZYQYZ 

9ZQQ9Z QR 

990 

9 

9 9 

Z9 Z 

ZZ ZO 

BTXT.AMM. 

• A8 • 

•AA6HAJ 

JLGADBF.7AKB8V7CB0AT 

9 Y8Y 

Y9 

Y9 R-Y 

ZOZQQQ— R 

9 8 R8-Y8 

99 

9 

9 0 9 

9Z0 

9 9 


BTXT• AMU**A8* *AAJAAD FAN4JAAD2821.SCAN/14 

9 Y8 Y9 Y9YYY0 9Y98YYY0 

99 9 9 999 9 999 

BTXT.ANM**A8*•AAAAAA GGGGGGGGGGNO.ERRS.DE 

9 Y88 Y9 Y9YYYY QQQQQQQQQQ 

999 9 9 9999 ZZZZZZZZZZ 

BTXT•AND*.A8.•AA082E RR*083ERR*084ERR*085 

9 Y8R Y9 Y9 

99 9 9 

BTXT*AND**A8*•AA090E RR.091ERR.092ERR.093 

9 Y8Y Y9 Y9 

99 9 9 

BTXT•AND* * A8••AA098E RR•099ERR.100ERR•101 

9 Y8 Y9 Y9 

99 9 9 

BTXT•AND*•AW*•AA106E RR.107ERR.108ERR.109 

9 Y8Q Y9 Y9 

99Z 9 9 

BRLD.AQ*•••AAAA AAANAAMJAAMRAAMJHAMZ 

9 Y9 Y9Y9 8YQ98Y8 8Y8 8Y8Z9Y8 

9 99 999 999 999 999 99 

BEND*••••••«**AA**** **••••****•«•**••••• 

9 Y9 

9 

BLOT**... .........*. 

9 


P/N 840225 
PAGE 14A 


AABEAAGGE4AA54A.5AA+ 5SB.5SKA5J5S80D30051 

QY8QY89098ZQ 8Z QZ 8- 8 Q Z 8 

999999 Z Z .j 

80AK5SNKGADJAAABG0D+ BBA.ODGAD0EA80D30052 

8-Y8 899ZYQYZQQ8Z Q 8Q- 9ZYQYZY 
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9Z999999 
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Y YQ9999 
99 

ERR*086ERR*087ERR*08 8ERR.089ERR.80D30056 
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